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ABSTRACT 


This  report  presents  analytical  techniques  for  predicting  both  the  linear 
and  nonlinear  stresses  and  deformations  of  mechanically  fastened  joints.  The 
H-n"1 used  is  a  __t  otnclcd  parallel  plr.+es  which  transfer  „lanor 
loads  among  themselves  by  means  of  transverse  fasteners.  The  plates  are 
treated  by  finite  element  methods  of  matrix  structural  analysis  in  which 
each  element  is  assumed  to  be  in  plane  stress  for  both  elastic  and  plastic 
stress  states.  The  fasteners,  which  are  treated  by  short-beam  theory, 
interact  with  the  plates  under  the  assumption  that  the  plates  may  be 
represented  by  an  equivalent  elastic  foundation. 

Application  of  the  present  analytical  techniques  was  made  to  a  variety 
of  problems  including:  the  combined  elastic -plastic  behavior  of  plates  with 
unloaded  holes,  the  load-deflection  behavior  of  sJ lgle-fastener  joints,  the 
residual  stress  distributions  in  plates  with  squeeze  rivets,  the  effect  of 
fastener  bending  and  shear  deformation  on  the  beaming  stress  distribution 
between  the  fastener  and  the  plate,  and  the  prediction  of  the  fatigue  life 
of  typical  mechanically  fastened  joints.  In  all  these  cases,  comparisons 
with  test  results  generally  gave  very  good  correlation. 

Parametric  studies  were  performed  to  determine  the  effects  on  stress  and 
deflection  distributions  of  variables  such  as:  initial  clearance  or 
interference  between  fastener  and  hole,  load  level,  geometry  and  material 
properties.  The  effect  of  these  variables  upon  fatigue  life  of  single  and 
multi -fastener  joints  under  realistic  loadings  was  also  assessed. 

For  the  range  of  parameters  studied,  the  effects  of  hole  clearance  and 
fastener  interference  and  geometric  configuration  appear  to  play  the 
dominant  roles  in  determining  the  stress  distribution  and  hence,  the  fatigue 
life  of  me chan leal iy  fastened  joints. 
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CHAPTER  1.  SUMMARY  OF  PRESENT  EFFORT 


1.1  Introduction 


The  accurate  structural  analysis  of  mechanically  fastened  Joints  is  an 
important  aspect  In  the  efficient  design  of  aircraft  structures  vhere  minimum 
veight  is  a  prime  consideration.  As  a  first  step  in  such  an  analysis,  it  is 
necessary  to  know  the  distribution  of  the  applied  loads  among  the  different 
fasteners  in  a  multi  fastener  Joint.  Previous  investigations  (RefB.  1  and  2) 
have  developed  convenient,  ractlcal  methods  for  determining  euch  groBs  loud 
distributions  in  multi  fastener  Joints.  Hovever,  one  of  the  necessary  input 
quantities  for  the  use  of  such  methods  is  the  load -displacement  relationship 
for  an  appropriate  single  fastener  Joint.  In  the  studies  of  Refs.  1  and  2 
resort  to  teat  data  van  made  in  obtaining  the  input  information  necessary 
for  such  gross  analysis  methods. 

In  addition,  another  input  to  these  procedures  is  the  proper  spring  con¬ 
stants  representing  the  sheet  material  between  fasteners.  The  spring  constants 
involve  uniformly  loaded  "effective  widths"  because  of  the  non  uniform  stress 
fields  that  exist  in  the  sheets  in  the  vicinity  of  the  fasteners.  Here  again 
the  techniques  of  Refs.  1  and  2  employ  semi-empirical  Inputs  to  account  for 
the  p Late  goiiuk  needed  In  the  analytic. 

The  methods  developed  in  the  present  study  provide  an  alternative  to  the 
empirical  approach  by  supplying  analytical  predictions  of  the  plate-fastener 
spring  constants  for  the  complete  range  of  loading  up  to  and  beyond  yielding, 
using  nonlinear  planar  analyses.  Methods  axe  also  developed  for  predicting  the 
non -planar  elastic  portion  of  the  load -deflection  curve  of  a  single  fastener. 

A  more  general  inelastic  procedure  for  predicting  the  inelastic  portion  of  this 
load-deflection  curve  is  also  indicated  but  not  implemented.  The  total  Joint 
deformation  resulting  from  both  plate  and  fastener  deformations  are  then 
determined  and  some  analytical  results  are  compared  with  those  obtained  from  a 
concurrent,  small  scale  experimental  program. 

After  the  transfer  loads  and  by  pass  loads  for  the  individual  fasteners 
sure  obtained  by  procedures  such  as  those  of  Refs.  1  and  2,  the  peak  stresses 
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that  occur  In  the  vicinity  of  the  fastener  holes  must  still  be  determined. 

These  total  peak  stresses  are  particularly  significant  in  fatigue  studies. 

The  procedures  presented  in  this  report,  vbich  employ  matrix  methods  of 
structural  analysis  in  conjunction  vith  finite  element  techniques,  enable  the 
determination  of  these  stresses  in  plates  having  either  loaded  or  unloaded 
holes.  Furthermore,  the  effects  of  fastener  bending  and  shear  deformations  on 
the  distribution  of  bearing  stress  between  fastener  and  plate,  through 
the  plate  thickness,  are  analyzed  and  the  resulting  increases  In  the  peak 
bearing  stress  determined. 

To  determine  the  applicability  of  the  analytical  result;  obtained,  the 
fatigue  analysis  prediction  of  an  aluminum  Joint  with  both  hole  clearance  and 
interference  fit  is  made.  Finally,  a  comparison  is  made  of  the  analytical 
life  prediction  of  an  actual  titanium  Joint  with  teat  results  chowlng  the 
effect  of  clearances  for  a  spectrum  type  loading. 

1.2  Methods  of  Analysis 

1.2.1  General 

A  mechanically  fastened  Joint  is,  in  general,  a  highly  redundant  structure 
In  which  the  mechanism  of  load  transfer  creates  a  nonlinear,  three-dimensional, 
combined  elastic-plastic  stress  state.  Since  the  exact  analysis  of  such 
problems  is  clearly  beyond  the  present  state  of  the  art,  &  more  modest  approach, 
based  upon  Justifiable  engineering  simplifications,  is  employed. 

Basically,  the  approach  taken  is  to  create  a  series  of  two-dimensional 
plate  idealisations  which  include  as  variable  parameters  the  important  planar 
effects  such  as  material  properties,  geometric  configuration,  hole  clearance 
and  Interference  fit.  In  addition,  a  one -dimensional  model  capable  of 
accounting  for  fastener  shear  and  bending,  head  stiffness  effects  and  bearing 
stress  variation  through  the  plate  thickness  is  used.  This  component  analogue 
to  simulate  the  actual  mechanically  fastened  structure  is  illustrated 
schematically  in  Mg.  1. 

1.2.2  Two-Dimensional  Problems 

The  planar  problems  are  treated  by  the  finite  element  method  of 
structural  analysis.  'F.o  types  of  problems  are  considered  in  the  present 
study:  (l)  elastic-plastic  analysis  of  plates  with  unloaded  holes,  and  (2) 

elastic  nonlinear  contact  problem  analysis  of  plates  with  holes  loaded  by 
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rigid  circular  pine  having  arbitrary  initial  fit  conditions.  The  analysis  of 
problems  of  the  first  type  is  given  in  Chapter  2  and  problems  of  plates  vith 
loaded  holes  are  treated  in  Chapter  3 

1.2.3  Three -Dimension  Effects 

The  three-dimensional  fastener-plate  interaction  is  approximated 
through  idealization  of  this  system  as  a  short  beam  on  an  elastic  foundation. 

The  fastener  deformations  are  treated  by  various  beam  theories  which  include 
either  shear  or  bending  effects,  while  the  plates  are  replaced  by  a  continuous 
set  of  mutually  uncoupled  springs  whose  moduli  sure  determined  from  the  con¬ 
current  two-dimensional  finite-element  study  described  in  Section  1.2.2. 

1.3  Application  of  Present  Analytical  Results 

1.3*1  Effective  Width  and  Inelastic  Stiffness  of  Plates  with  Holes 

An  elastic-plastic  planar  analysis  capable  of  generating  "spring 
constants"  for  the  plates  In  multi-fastener  Joint  analyses  as  described  in 
Refs.  1  and  2  is  applied  to  several  plates  with  unloaded  holes.  The  stiff¬ 
ness  characteristics  of  these  structures  are  evaluated  at  leal  levels  in  the 
elastic  and  plastic  regions.  Prom  the  planar  finite  element  analysis  the 
"effective  width"  of  the  plate  is  determined.  Present  results  reveal  that 
this  parameter  is  strongly  influenced  by  the  hole  6paclng-to-hcle  diameter 
l'atio  (s/d)  and  to  the  hole  spacing-to-plate  width  ratio  (s/w).  For  usual 
hole  spacing,  say  of  the  order  of  4D,  it  is  found  for  the  values  of  S/w 
considered,  that  the  effective  width  of  the  plate  is  approximately  75  to  90 
percent  of  the  original  width. 

1*3*2  Prediction  of  Load-Deflection  Behavior  for  Single  Fasteners  in  Single 

and  Double  Shear 

The  bending  and  shear  deflections  in  a  fastener  are  evaluated  separately 
by  solving  the  differential  equations  for  a  beam  on  an  elastic  foundation, 
where  the  modulus  of  the  foundation  is  the  local  spring  constant  of  the  plate. 
The  cases  considered  are  a  fastener  in  ant 1 symmetrical  single  shear  and  a 
fastener  ir.  symmetrical  double  shear.  The  relative  magnitudes  of  the  shear  ar*i 
bending  deformations  are  estimated  for  several  cases  through  numerical  applica¬ 
tions.  In  addition,  the  effects  of  head  fixity  are  estimated  through  considera¬ 
tion  of  the  1  wo  limiting  cases,  i.e.,  a  rigidly  clamped  head  and  one  with 
negligible  rotational  resistance. 
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The  effects  of  fastener  flexibility  oa  the  bearing  stresses  between 
fastener  and  plate  through  the  plate  thickness  are  examined.  The  increase  in 
the  bearing  stress,  at  some  plate  thickness  locations,  above  the  nominal 
bearing  stress  obtained  with  a  rigid  fastener  are  evaluated  for  a  range  of 
fastener  diameter  to  plate  thickness  ratios  and  the  results  presented  in 
graphical  p>arametric  form.  If  shear  rigidity  of  the  plate  in  the  thickness 
direction  may  be  neglected,  these  local  increases  in  bearing  stress  result  in 
corresponding  increases  in  all  the  plate  stresses  at  the  same  plate  thickness 
locations. 

1.3-3  Fatigue  Analysis  Under  Constant  Amplitude  and  Spectrum  Loading 

The  effect  of  fastener  fit  (ie.  clearance  aid  interference)  on  fatigue 
life  of  mechanically  fastened  joints  is  studied  for  conditions  of  constant 
amplitude  and  spectrum  type  loading.  In  general,  results  indicate  that  fatigue 
life  is  reduced  for  cases  where  there  is  a  clearance  between  fastener  and  hole 
and  increased  where  there  is  an  interference  fit.  The  degree  of  improvement 
or  reduction  in  fatigue  life  iB  shown  to  be  a  function  of  the  amount  of 
clearance  or  interference  in  the  Joint. 

There  appears  to  be  a  fairly  uniform  decrease  in  fatigue  life  in  going  from 
a  neat  fit  condition  up  to  clearances  of  approximately  2$  dia.,  after  which  the 
effect  Is  progressively  less  significant.  For  interference  fit  cases,  results 
indicate  the  possibility  of  an  optimum  interference  for  a  given  stress  level 
and  Joint  geometry.  It  should  be  noted  however,  that  excessive  amounts  of 
interference  nay  be  detrimental  to  fatigue  life. 

I.3.4  Correlation  With  Experimental  Results 

(l)  Static  Teats 

Overall  Joint  flexibilities  for  single  fasteners  in  double  shear 
are  determined  both  experimentally  and  analytically.  A  comparison  of  the 
results  reveals  a  reasonable  correlation  for  the  modest  number  (15)  of 
tests  performed.  Both  tests  and  analytical  predictions  reveal  a  greater 
sensitivity  of  results  with  the  type  of  fit  between  fastener  and  hole  (i.e., 
loose  or  interference)  rather  than  with  the  fastener  material  employed. 
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(2)  Fatigue  Tests 


Fatigue  test  data  for  double-shear  and  multi  fastener  aluminum  alloy 
and  titanium  alloy  Joints,  which  include  both  constant  amplitude  ana  spectrum 
type  fatigue  loading, are  compared  to  analytical  predictions  based  on  the  results 
of  this  study.  Although  the  data  exhibit  a  fairly  large  scatter,  the  trend  to 
reduction  in  fatigue  life  as  clearance  between  fastener  and  hole  is  increased 
is  clearly  demonstrated.  Improvement  in  fatigue  life  is  generally  obtained  in 
going  from  a  neat  fit  or  clearance  to  an  interference  fit,  but  there  are 
optimum  degrees  of  interference  for  given  stress  levels  and  Joint  geometries. 

It  is  notable  that  all  the  basic  trends  are  predictable  by  analysis. 

Limited  experimental  test  data  are  also  presented  to  show  the 
effect  of  clamp-up  due  to  installation  torque  on  fatigue  life.  A  multi  fastener 
double- shear  aluminum  alloy  joint  was  tested  in  constant  amplitude  fatigue  for 
conditions  of  normal  clamp-up  and  no  clamp-up.  Considerable  Increases  in 
fatigue  life  are  shewn  for  the  clamp-up  condition, 

l.i*  Conclusions  and  Recoanendatlons 

Analytical  methods  for  studying  the  complex  structural  three-dimensional 
stress  ajoi  deflection  behavior  of  mechanically  fastened  Joints  have  been 
presented  in  this  report.  These  techniques  have  proved  to  be  very  useful 
in  obtaining  basic  data  so  as  to  gain  a  better  understanding  of  the  problem 
and  to  narrow  down  the  most  important  parameters  which  affect  structural  Joint 
behavior.  Tde  results  of  planar  analyses  of  plates  with  loaded  and  unloaded 
holes  have  provided  input  information  for  both  static  load-deformation  charac¬ 
teristic  studies  and  fatigue  life  predictions  of  Joints. 

An  adequate  engineering  method  of  determining  the  separate  effects  of 
fastener  shear  and  bending  flexibility  on  overall  Joint  flexibilities  and  local 
stress  distributions  has  been  developed.  For  the  cases  considered,  the  effects 
ox  tending  flexibility  were  generally  less  significant  than  the  effects  of 
shear  flexibility. 

Possible  extensions  of  the  techniques  presented  include  a  more  refined 
beam  theory  bo  include  the  effects  of  fastener  shear  and  bending  simultaneously, 
as  veil  as  countersink  head  effects  and  clamp-up  force  upon  overall  Jo^nt 
compliance  and  stress  concentration. 
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It  is  concluded  from  these  studies  that  the  fatigue  Uvea  of  mechani¬ 
cally  fastened  Joints  are  signif ieantly  affected  \>y  the  degree  of  clearance 
or  interference  between  the  fasteners  and  holes.  Basic  trends  shown  in 
experimental  Joint  fatigue  test  data  have  been  reasonably  well  predicted  by 
the  fatigue  analysis.  It  was  also  possible  to  account  for  certain  aspects  of 
Joint  fatigue  behavior  through  a  study  of  the  elastic  stress  variation  around 
plate  holes,  as  related  to  nominal  stress  level  and  hole  location  in  the 
Joint. 


It  Is  concluded  that  clearances  between  fasteners  and  holes  will 
reduce  fatigue  life  beyond  that  obtained  with  a  neat  fit  condition.  In 
addition  the  effect  on  an  interference  fit  will  generally  improve  fatigue 
life,  although  behavior  under  this  condition  is  not  as  predictable  as  in  t.he 
case  of  clearance  fits.  This  Is  due  to  the  degree  of  plasticity  encountered 
as  a  result  of  the  initial  interference  fit.  Trends  shown  by  the  fatigue 
analysis,  backed  up  by  limited  test  data,  indicate  the  possibility  of  the 
existence  of  an  optimum  Interference  for  a  given  Joint  geometry,  and  that 
additional  interference  beyond  these  levels  may  tend  to  reduce  fatigue  life. 

A  limited  study  of  the  effect  of  clasp-up  in  a  Joint  has  shown  that 
fatigue  life  can  increase  significantly  as  a  result  of  clamp-up.  This  effect 
can  be  accounted  for  by  analysis  if  a  reasonable  estimate  of  the  magnitude  and 
distribution  cf  frictional  forces  is  made. 

It  is  recommended  that  further  attention  be  given  to  the  prediction  of 
stress  distribution  In  the  region  of  fastener  holes  In  Joints,  for  the 
conditions  of  clearance  and  interference  fits.  For  the  Interference  cases 
in  particular,  extension  of  the  present  work  to  Include  the  effects  of 
plasticity  would  .-esult  in  a  closer  representation  of  the  stress-strain 
behavior  at  &  hole  or  notch.  If  the  strain  amplitude  in  a  fatigue  cycle  can 
be  estimated  to  a  reasonable  degree  of  accuracy,  the  use  of  strain-life  data 
enables  a  good  estimate  of  fatigue  life  to  be  made.  The  trends  indicated  by 
the  qualitative  analysis  methods  employed  in  the  present  study  are  sufficiently 
well  defined  to  show  the  value  of  a  continuing  effort  in  this  field. 
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CHAPTER  2  INEIA3TIC  ARAU3I3  OF  PIATiS  WEEK  USLQABED  HOLES 

2.1  Introduction 

The  elastic-plastic  analysis  of  planar  structures  having  stress  con¬ 
centrations  caueed  hy  unloaded  holes  Is  considered  In  this  section.  To 
perform  Buch  analyses  two  computer  programs  (based  on  finite  element 
methods)  are  used.  The  first  is  an  elastic  analysis  used  to  generate 
Influence  coefficients  relating  the  applied  loading  and  plastic  strains 
to  the  stresses  and  displacements  throughout  the  structure.  The  second 
step  In  the  analysis  procedure  Is  an  incremental  plasticity  program  to 
follow  the  load  veil  into  the  inelastic  range.  For  this  purpose  a  pre¬ 
viously  available  computer  program  designated  here  as  the  Gruaman-Air  Force 
plasticity  program  vas  modified  and  expanded  to  accomodate  the  present 
computational  requirements.  This  program  is  fully  documented  in  the 
present  report. 

2 . 2  Inelastic  Stress  and  Deflection  Analysis  of  Fim^r  Structures 
2.2.1  Basic  Considerations 

The  Gruman-Air  Force  program  which  forms  the  basis  of  the  present 
plasticity  analyses  is  fully  documented  in  Ref.  3.  The  theoretical  back¬ 
ground  of  the  program  and  the  necessary  modifications  to  provide  for  an 
inelastic  deflection  analysis  capability  are  summarized  here. 

The  program  uses  the  "initial  6 train"  method  of  plastic  analysis  where 
plastic  strains  are  interpreted  as  initial  strains.  The  basis  of  the 
method  resides  in  the  formulation  of  the  stiffness  analysis  problem  as  a 
series  of  linear  analyses  each  of  which  involves  representation  of  a  state 
of  initial  strain  in  the  structure.  The  general  formulation  for  this  type 
of  problem  can  be  written  in  matrix  form; 

fa}  =  [r]  {F}  +  [G]  {«*]  (1) 

Here,  the  o's  ere  the  stress  values  which  characterize  the  state  of  stress  in 
the  respective  elements  of  the  structure.  These  may  be  defined,  in  a  given 
element,  e.g.,at  its  centroid,  or  at  nodal  points  of  the  finite  element 
idealization.  The  matrix  [r]  relates  the  stresses  [a]  to  the  applied  loading 
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{P},  on  the  basis  of  a  conventional  elastic  matrix  displacement  analysis 
of  the  structure.  The  matrix  [G]  relates  the  stresses  to  the  initial 
strains  {c^}. 

A  similar  expression  to  the  element  stresses  can  be  written  for  the 
generalized  nodal  displacements  since  these  oust  be  determined  at  each 
step  of  the  loading  in  order  that  a  complete  analysis  of  a  structural  joint 
can  be  made.  This  equation  takes  the  form: 

{41  -  [A]  {Pi  +  G>]  {Sil  (2) 

In  this  expression  the  values  of  the  nodal  displacements  {ft}  are  confuted 
in  an  analogous  fashion  to  the  stresses  at  each  step  in  the  load  increment. 
The  matrix  [a]  is  the  flexibility  matrix  relating  displacements  to  applied 
loads  {P},  and  the  matrix  [D]  relates  nodal  displacements  to  the  initial 
strains.  Both  the  [A]  and  [D]  martices  are  determined  from  an  elastic 
analysis  cf  the  structure  together  with  the  matrices  [r]  and  [G]  needed 
for  the  stress  analysis.  These  four  matrices  then  act  as  inputs  to  the 
plasticity  program. 

In  the  present  approach,  the  initial  strains  c  are  taken  as  the 

p  1 

plastic  strains  e  at  the  specified  load  level.  The  load  is  applied 
incrementally  and  the  above  linear  analyses  are  applied  for  each  increment. 

An  examination  of  the  numerical  techniques  used  to  solve  such  nonlinear 
problems  reveals  two  possible  approaches:  (l)  a  non  iterative  step-by-step 
calculation  in  which  all  quantities,  including  the  Initial  (plastic)  strains, 
are  incremented  and  (2)  an  alternate  iterative  procedure  for  any 
particular  load  level.  The  first  approach,  which  is  the  most  straight¬ 
forward,  is  the  one  used  in  this  analysis. 

Two  methods  for  the  non  iterative  step-by-step  procedure  have  been 
suggested  in  Ref.  4  but  subsequent  evaluation  of  these  methods  (Ref.  3) 
indicates  that  only  one  of  them  Is  free  from  inherent  computational 
instabilities.  In  this  method  the  stressee  in  the  plate  are  expressed  by 
the  following  modified  form  of 

{o(k)}  =  [r]{p(k)}  +  CG]{«1(k"1)}  ^ 
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vl.ere  k  is  the  load  Increment  designation.  In  a  similar  fashion  the  com¬ 
putations  for  the  displacements  can  be  made  by  rewriting  Eg,.  2  in  the  form 


{«(k)}  -  [A]  (P(k))  + 

where  k  is  the  same  lead  increment  designation  as  before.  In  Eqs.  3  and  4 

'til 

the  stresses  and  displacements  in  the  k  Increment  are  expressed  in  terns 
of  the  initial  (inelastic)  strains  from  the  (k-l)^11  increment. 

The  actual  method  used  for  determining  the  stresses  and  strains  in 

the  k4*1  Increment  is  the  "constant  strain"  method,  which  is  illustrated 

in  Fig.  2  for  a  uniaxial  stress -strain  case.  The  method  proceeds  as  follows. 

One  enters  the  increment  with  applied  loads  and  initial  strains 

(k-l) 

~  ' ] ,  the  latter  evaluated  during  the  preceding  increment.  The  first 

operation  of  the  k4tl  increment  is  to  determine  an  approximation  to 

from  Eq.  3  by  direct  substitution.  Referring  to  Fig.  2  point  A  is, thus 

(k}  (v)  t/e-1) 

determined  with  stress-strain  coordinates  ov  '  and  aK  ;/E  + 


Since 


point  A  will  probably  not  lie  on  the  stress-strain  curve  of  the  material, 

*(k) 

the  stress  at  point  A  is  relaxed  to  a  '  (while  the  total  strain  is  held 
constant,  i.e.,  "constant  strain"),  corresponding  to  point  B,  which  does 
lie  on  the  stress-strain  curve.  Foint  B,  then,  defines  the  final,  corrected 
values  of  stress,  o  ^k;,  and  initial  strain,  in  the  kth  cycle,  as 

inil C2.*tcd.  1 r*  Fig,  2  ■ 

2.2.2  Isotropic  Elastic-Plastic  Analysis 


In  the  general  biaxial  stress  state  which  is  of  interest  in  the  analysis 
of  planar  structures,  the  notion  of  an  "effective"  stress-strain  relation¬ 
ship  as  shown  in  Fig.  3  is  used  in  conjunction  with  the  Von-Mises  yield 
criterion  and  the  Prandtl-Reuss  flow  relations  of  incremental  plasticity 
theory. 

The  biaxial  analysis  employs  the  same  step-by-step  procedure  described 
above,  with  modifications  for  biaxial  stress  states.  It  can  be  summarized 
in  the  following  algorithm  for  the  ktn  load  level: 

1.  Obtain  the  stress  components  at  each  node  using  the  basic 
Eq.  (3)  by  assuming  the  initial  strains  from  the  previous 


load  level 
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2.  Using  these  stresses,  calculate  an  "effective"  stress  at 
each  node. 

3.  Assuming  that  the  effective  8tre38-strain  relation  for  the 
material,  modified  hy  including  the  elastic  strain,  corresponds 
to  data  measured  in  a  simple  uniaxial  tension  test,  determim 
the  "effective"  strain  corresponding  to  the  effective  Btress 
Calculate  the  corresponding  effective  plastic  strain  and  the 
increment  in  effective  plastic  strain  over  the  previous  load 
level. 

Using  the  incremental  flow  relations,  calculate  the  inelastic 
strain  increments.  The  proportionality  constant  in  these 
equations  is  the  ratio  of  the  effective  plastic  strain 
increment  to  the  effective  stress. 


At  this  point  in  the  calculation,  the  applied  load  can  be  incremented 
again  and  the  cycle  repeated.  The  details  in  implementing  each  of  these 
four  steps  in  the  algorithm  follows: 

Step  (l)  When  calculating  the  stresses  o^v  '  at  the  node  point, 

N,  for  the  load  level  using  the  initial  strains  from  the  (k-l)'th 
load  level  in  Eq.  (3),  it  is  convenient  to  identify  the  three  stress 
components  (one  shear  and  two  norml)  at  the  node  point  by  means  of 
subscripts  3ri,  3^-1,  and  3«-2,  as  follows: 

r  •  ^ 


(5) 


V 


/ 
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The  stresses  are  thus  arranged  in  groups  of  three  components  at  each  node 
point  H. 

Step  (2)  We  now  calculate  the  corresponding  effective  stresses 

*~{k) 

ai  '  for  each  of  the  nodes  from  the  Von-^ti.ses  expression: 


_(v) 

Note  that  by  definition  must  be  positive  and  is  proportional  to  the 
octahedral  shear  stress.  This  expression  together  with  the  stress-strain 
data  constitutes  the  strain  hardening  criterion. 


Step  (3)  Assuming  that  the  effective  stress-strain  curve  (a  vs.  0/ 
B  +  e  )  is  the  same  as  the  tensile  stress -strain  for  the  enter lal  of 
interest,  we  use  the  curve,  together  with  the  constant  strain  method,  to 
determine  the  corrected  (relaxed)  value  of  and  the  corresponding 

effective  plastic  strain  cjp  .  The  increment  in  the  effective  plastic 
strain  ^  over  that  of  the  preceding  interval  will  he  either  positive 
or  zero,  depending  upon  whether  plastic  loading  or  elastic  unloading  is 
taking  place.  Thus 


when 


P(k)  -POO  -PU-1) 

"  *R  '  *H 


is  greater  than  any  previous  (inelastic 


(7a) 


strain  increasing). 


and 

_J>U) 

.0 


(7b) 


-(k) 

when  o^  is  smaller  than  a  previous 

Step  (4)  The  increments  in  the  ordinary  plastic  strain  components  may 
now  be  obtained  using  a  Prandt 1-Reuse  incremental  relationship. 


P(k) 


A«?.(k)  « 

3«-H 


ik> 


|»  .  l/2  „<*>  ] 

['3N-2  1/2  °3N-lJ 


(8a) 
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(8b) 


A5 


P(k) 

3N-1 


d* 


pOO 

3N 


_  *tN  [>)  1/?  ,0c)  ] 

g<k)  pN-1  1/2  a3N-2j 

p(k) 

'  "So-  ['/3°3“)] 


(8c) 


The  total,  ordinary  plastic  strain  components  are  obtained  by  addition, 


C  ' 

r 

• 

r 

.  ~\ 

„P  (k) 

(k-l) 

dep 

(k) 

'  3N-2 

c 

3N-2 

3N-2 

-P  (k) 
3N-1 

ep 

(k-l) 

AeP 

(k) 

n 

3N-1 

>  ♦  < 

3N-1 

P  rX) 
e  3N 

*p 

(k-l) 

3H 

d6P 

(k) 

3N 

• 

L  *  J 

a 

■  J 

V. 

• 

*  J 

(9) 


These  components  together  vlth  the  new  applied  loads  p(^+l)  ^  fce  substituted 
in  Eq.  (3)  to  obtain  a^+1/'in  the  next  load  cycle. 

2.2.3  Computer  Program 


The  computer  program  which  incorporates  the  theory  described  above  is  explained 
in  Appendices  A  through  D.  Appendix  A  is  essentially  a  user's  manual  for  the  program 
and  describes  the  various  options  available.  The  logic  of  the  program  is  given  by 
means  of  extensive  flow  charts  in  Appendix  B.  The  complete  FORTRAN  listing  of  the 
program  is  given  in  Appendix  C.  By  necessity,  the  IBM  709^  version  of  the  program 
provided  for  the  Flight  Dynamics  Lab  is  small  because  of  core  limitations.  Never¬ 
theless,  with  a  maximum  number  of  3^  plastic  nodes  available,  a  moderate  else  stress 
concentration  problem  can  still  be  run.  An  example  of  the  output  of  the  program  is 
given  in  Appendix  P  which  presents  the  results  of  a  two  bole  aluminum  plate  at  only 
three  of  the  total  of  150  load  increments  used  in  the  solution  up  to  a  maximum 
load  of  18,000  lbs. 
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2.3  Results  and  Discussion 


2.3.1  Finite  Element  Idealizations 

For  the  planar  structural  analyses  of  the  present  study,  the  finite 
element  approach  was  usea.  Hie  analysis  technique,  described  In  Section  2.2, 
requires  an  elastic  analysis  of  the  structure  to  be  made  in  order  to  generate 
the  four  Influence  input  matrices  for  the  plasticity  analysis.  The  GruniBan 
COMAF-ASTRA^-  structural  analysis  program  was  used  for  this  purpose.  The  details 
of  this  program  will  not  be  presented  in  this  report  but  can  be  found  in  Refs. 

5  and  6  .  Three  different  finite  elements,  available  in  the  CCMAP- ASTRAL 
library  of  elements,  were  examined  and  compared  in  the  early  stages  of  the  study. 
These  included  the  constant  strain  triangular  element,  the  constant  strain 
quadrilateral  element  ( composed  of  four  constant  strain  triangles),  and  a 
linearly  varying  strain  triangle.  The  comparison  of  the  three  elements  showed 
excellent  convergence  properties  for  the  linearly  varying  strain  triangle  and 
somewhat  slower  convergence  for  the  constant  strain  elements.  However,  the 
quadrilateral  has  a  decided  advantage  over  the  triangle  because  more  refinement 
in  the  grid  else  can  be  accomplished,  for  topological  reasons,  by  using  the 
same  number  of  quadrilaterals  as  triangles  for  any  particular  structure.  At  the 
time  when  the  work  of  the  present  effort  was  performed  the  C0MAP-A3TRA1  program 
did  not  have  a  matrix  stacking  procedure  for  the  induced  strain  matrices  and 
therefore  considerably  more  data  handling  would  have  been  necessary  in  using 
the  linearly  varying  strain  triangular  element.  For  this  reason,  the  constant  strain 
quadrilateral,  element  was  used  in  all  the  parametric  studies  of  this  chapter. 

In  the  case  of  the  constant  strain  elements  the  induced  strain  matrix  reduces 
to  a  straight-forward  matrix  multiplication  and  is  easily  accomplished  in 
COMAP,  which  is  basically  a  matrix  manipulation  package. 

2.3.2  Rectangular  Plates 

Hie  mathematical  model  used  to  study  the  effective  width  of  a  plate 
which  is  part  of  a  structural  Joint,  as  well  as  the  effect  of  fastener  spacing, 
is  shewn  in  Fig.  4  .  Rue  to  symmetry,  only  a  quadrant  of  the  plate  shown 
need  be  analyzed .  Note  that  the  grid  chosen  has  a  greater  refinement  near  the 
region  of  high  strain  gradient,  which  for  this  type  problem  is  perpendicular  to 
the  direction  of  the  load.  The  number  of  elements  used  in  this  idealization 
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was  54.  This  is  close  to  the  maximum  of  60  allowed  for  the  IBK-36O  version 
of  the  plasticity  program  used,  in  which  all  computations  are  done  in  core. 

Table  1  and  Pig,  4  give  the  geometric  properties  of  the  six  plate  problems 
analyzed  in  this  series.  A  graphical  option  in  the  input  data,  when  using  the 
Grusman  structural  analysis  program  COMAP- ASTRAL ,  permits  the  use  of  a  graphical 
check  to  the  input.  Using  this  option  to  check  the  geometry  and  member  data, 
plots  of  the  six  plates  were  made  by  means  of  an  Orthomat  drafting  machine  ae 
shown  in  Figs.  5  and  6  .  All  the  plates  were  assumed  to  be  of  2024-T4 
aluminum  alloy  having  the  stress-strain  curve  shown  in  Fig.  7  . 

The  output  of  the  plasticity  program  includes  all  the  nodal  dis¬ 
placements  and  all  the  element  centroldal  stresses  (when  using  constant  strain 
elements)  or  r*>dal  stresses  (when  using  the  linearly  varying  strain  triangular 
element)  at  all  increments  of  loading.  From  these  results  both  the  load- 
deflection  characteristics  and  stress  concentration  factors  of  the  structure  can 
be  computed.  For  purposes  of  illustration  of  the  analytical  results,  the  net 
section  tangential  stress  distributions  at  various  load  levels  are  shown  in 
Fig.  8  for  plate  problem  P  1.1.  The  mean  net  section.  Btrese  is  also  indicated 
in  Fig.  8  at  each  level  of  load.  The  effects  of  plasticity  are  Buch  that  a 
leveling  in  the  peak  stresses  at  the  hole  boundary  occurs  as  the  load  increases. 
The  etresB  concentration  factor,  which  is  the  maximum  stress  divided  by  the  net 
section  stress,  decreases  with  load  as  shown  iu  Fig.  9  .  Note  also  from  this 
figure  that  the  theoretical  stress  concentration  factor  is  underestimated  by 
about  20$  using  this  particular  idealisation. 

The  load -deflection  characteristics  pf  plate  Kc .  P  1. 3 
shown  in  Fig.  10a.  At  any  level  in  the  loading  the  tangeDt  to  the  load- 
deflection  curve  Indicates  the  stiffness,  k,  of  the  structure.  This  has  been 
plotted  vs.  applied  load  in  Fig.  10b  and  shows  a  considerable  drop  in  stiffness 
at  a  load  level  above  7  kips.  Data  such  as  the  above  can  be  readily  uBed  in  the 
multi  fastener  Joint  analyses  described  in  Refs.  1  and  2  which  require  the 
spring  rates  of  the  plate  between  fasteners  as  an  input. 

One  of  the  objectives  of  the  present  study  was  the  analytic  determina¬ 
tion  of  the "effective  width"  of  a  strap  in  tension  pierced  by  several  holes. 

The  load-deflection  curve  obtained  by  finite  element  analysis  is  used  to  determine 
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the  elastic  spring  constant,  k^,  shovn  in  Fig.  11  for  the  three  plates  with 

an  s/w  ratio  of  2.  Fig.  12  shows  eisailav  load -deflection  results  for  three 
plates  with  an  S/w  ratio  of  1.  An  "effective  width"  can  he  computed  using  the 
relations :  A^E 

~  s 

and  A=(W-D)t»Wt 

e  e  tf 

■where.  A  is  the  "effective"  cross  sectional  area 

*  e 

E  is  the  Yeung's  modulus 

S  is  the  spacing  of  the  holes  or  pitch 

W  is  the  distance  between  fastener  lines 

D  is  the  "effective  diameter" 

e 

W  is  the  "effective  width" 

e 

and  t  is  the  plate  thickness 


Using  the  values  of  k  obtained  from  Figs.  11  and  12  .values  of  the 
"effective  width"  were  computed.  The  results  are  shovn  in  Fig.  13  for  the 
six  plates  analyzed.  It  should  be  noted  from  Fig.  13  that  as  the  faBtener 
spacing  to  diameter  ratio  (S/D)  decreases,  the  "effective  wlduh"  decreases 
rapidly.  At  the  "standard"  spacing  of  UD  for  example,  the  value  of  the 
"effective  vldth"  is  between  75  and  90  percent  of  the  original  width  for  the 
two  5/w  ratios  shown.  The  corresponding  value  of  1  fur  au  o/D  of  1  is  O.hSl' 
for  S/w  =  1  and  0.6QD  for  S/w  =  2.  This  appears  much  lover  than  the  0.8(30 
reconmended  by  Me  Comb  6  et.  al.  (Ref.  1  j  as  s  semi-empirical  value. 


A  series  of  four  tapered  plate  analyses  were  performed  in  order  to 
study  the  effect  of  taper  in  width  on  the  stiffness  characteristics  of  the 
plate.  A  summary  of  the  geometric  properties  of  the  plates  Is  given  in  Table  2. 
The  idealization  used  on  this  synmetric  structure  is  shovn  in  rig.  I1*  using 
constant  stress  quadrilateral  elements.  Orthomat  drawings  of  the  four  problems 
were  made  to  check  the  geometry  and  member  data  input.  These  are  shown  in 
Figs.  15  to  18  .  The  four  tapered  plates  are  assumed  to  be  made  of  202k-T'-+ 
aluminum  alloy  and  have  the  stress  strain  behavior  shown  in  Fig.  7.  No 
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yielding  is  assumed  below  a  stress  level  of  U0,000  psi.  The  stress  distribution 

across  the  two  net  sections  of  plate  P  3.1A,  a&  a  function  of  applied  load,  is 

shown  in  Fig.  19  where  the  mean  net  section  stress  is  also  indicated.  In 

Fig.  £0  the  variation  of  the  stress  concentration  factor  with  increasing 

applied  load  is  shown.  The  same  decreasing  effect  with  increasing  load 

mentioned  in  connection  with  plate  P  1.1  (Fig.  9  )  is  obtained  in  this  case 

also.  The  load-deflection  c> aracterlstics  of  the  four  plates  are  summarized 

in  Fig.  21  .  The  effect  of  decreasing  taper  and  the  resulting  decrease  in 

net-section  area  shows  a  substantial  reduction  in  the  elastic  modulus t  k  ,  as 

e 

the  taper  is  decreased  from  1  r U  (P  3.23)  to  1:2.6  (P  3*3B)  the  kg  drops  from 

1-32,000  lb/in  to  31+3,000  lb/ln.  Plate  P  3.3B  has  a  relatively  low  carrying 
capacity  compared  to  the  other  three.  An  examination  of  the  development  of 
yield  zones  with  increasing  load  as  shown  in  Fig.  21  will  explain  this 
behavior.  At  a  load  level  of  5 >200  lb.  the  yielded  elements  have  transversed 
the  whole  net  section  of  the  edge  holes  with  the  resulting  reduction  in 
stiffness.  The  strain  hardening  modulus  of  2024-Tl  aluminum  alloy  is  taken 
to  be  360,000  psi  (Fig.  7  ),  which  is  approximately  30  times  smaller  than  the 
elastic  modulus.  Hence,  when  the  net  section  elements  have  yielded,  the  overall 
stiffness  values  will  be  very  low  compared  to  the  elastic  range  stiffnesses. 
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CHAPTER  3  PLATES  VITO  LOADFD  HOLES 


3* 1  Nonlinear  Contact  Problem  -  Elastic  Analysis 
3.1  l  Introduction 

In  a  typical  multi-fastener  Joint  under  load  the  stress  dis¬ 
tribution  around  a  particular  hole  is  very  complex  and  depends  on  a  variety  of 
geometric,  material  and  manufacturing  parameters .  This  chapter  treats  the 
problem  of  plates  loaded  by  fasteners  having  ei+her  initial  clearance  or  in¬ 
terference.  A  basic  assumption  in  the  analyses  to  be  presented  is  that  the 
stress  distribution  across  the  plate  thickness  is  constant.  This  restraint 
will  be  relaxed  in  Chapter  4  which  analyzes  the  three  dimensional  effects 
causing  a  non-uniform  distribution  across  the  plate  thickness. 

The  load  transfer  from  one  plate  of  a  Joint  to  another  through 
a  fastener  creates  a  nonllr  ar  contact  problem.  The  reason  is  that  as  the  load 
in  the  Joint  changes  the  area  of  contact  between  the  plate  and  the  fastener 
changes  and  hence  there  is  gradual  load  redistribution.  The  amount  of  redis¬ 
tribution  is  a  function  of  the  load  level  and  the  Initial  amount  of  clearance 
or  interference  between  the  fastener  and  the  hole.  Frictional  effects  also 
play  an  Important  role  on  the  area  of  contact  but  for  the  present  analyeis  these 
are  assumed  negligible  ao  that  the  load  dir'  cl ion  at  any  point  on  the  contact 
surface  is  always  assumed  to  be  radial  in  direction.  Only  radial  compressive 
loads  are  permitted  in  the  analysis. 

3*1.2  Analytical  Model 

The  mathematical  model  chosen  in  order  to  study  the  local 
effects  of  the  load  transfer  and  by-pass  load  around  a  single  fastener  is  shown 
in  Fig.  23  This  analyeis  assumes  that  a  region  around  the  faetener  can  be 
isolated  from  the  rest  of  the  Joint  (Fig.  23a)  in  which  the  stresses  influenced 
primarily  by  the  fastener  are  localized.  Another  assumption  is  that  the  plate 
et-ru'-'ture  is  symmetric  and  Is  loaded  symmetrically  as  shown  in  Fig.  23b.  The 
problem  Is  one  where  on  a  specified  number  of  contact  points  around  the  periphery 
of  the  hole  the  redundant  radial  reactions  must  be  determined  for  a  given  load 
level  e.nd  a  particular  initial  fit  condition. 

Using  the  notation  shown  in  Fig.  23b  an  expression  can  be 
written  for  the  relative  radial  displacements  between  the  plate  and  the  rigid 
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fastener.  Tale  expression  takes  the  form: 


{Arl  =  [A]  {Pi  +  [Dl]  {£)  +[VA)  *  (Db]  (10) 


where, 

{h^}  are  the  relative  displacements  or  "gaps"  that  exist  between 
the  plate  and  the  fastener, 

[a]  1 6  the  flexibility  matrix  for  unit  radial  load, 

{P|  are  the  redundant  radial  loads  which  exist  on  the  contact  surface* 

[Dt]  are  the  relative  radial  displacements  that  exist  in  the  statically 

JJ 

determinate  structure  (P^s  0)  for  various  leading  conditions,  f£}, 
{£1  load  levels  or  loading  conditions, 

{©A]  eet  of  relative  radial  displacements  caused  by  initial 

clearance  or  interference  between  the  fastener  and  the  plate  hole, 
{D^}  relative  radial  displacements  in  the  statically  determinate 
structure  caused  by  the  applied  by-pass  load,  ?  , 

The  condition  for  obtaining  the  redundants  P  is  to  eet  the  relative  radial  displace¬ 
ments  to  zero. 


{0}  =  [A]  [p]  +  [DT]  {£}  +  {D.}  +  {n  1 


(11) 


(?}  =  -Caj-1  { Oy  Ui  ♦  U>Ai  ♦  PB-| 


(12) 


If  any  of  the  P's  are  positive  (tensile)  these  are  put  to  zero.  By  a  trial 
and  error  procedure  the  redundants  are  computed  such  that  all  are  compressive 
and  the  computed  relative  radial  displacements  create  a  compatible  deflected 
condition  between  the  plate  and  the  fastener.  The  details  of  the  various  steps 
used  to  generate  the  matrices  needed  for  solving  the  contact  problem  are  given 
in  Appendix  1  . 

3.1.3  Computer  Program 

The  iterative  solution  of  Equation  12  is  accomplished  by  means 
of  the  nonlinear  contact  program  documented  in  Append  ices  E  through  H.  Appendix  E 
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explains  the  use  of  the  program*  Extensive  flow  charts  of  the  program  are  pro¬ 
vided  In  Appendix  F  and  the  FORTRAN  listing  Is  given  In  Appendix  G.  A  sample 
problem  output  is  shown  in  Appendix  H  for  illustrating  the  form  of  the  output. 

The  case  run  is  the  aluminum  plate  Problem  P  2.3  with  fit  condition  C2  which  is 
equivalent  to  of  0.4  percent.  The  initial  lack  of  fit  indicated  in  the 

program  refers  to  the  percentage  based  on  the  radius  of  the  hole,  not  the  diameter. 
Once  the  components  of  the  radial  loads  are  obtained  as  illustrated  in  Appendix  H 
for  each  load  level,  these  are  then  applied  to  the  plate  structure  to  determine 
the  elastic  stress  and  displacement  distribution  throughout - 

3>1.^  Effect  of  Load  Level  and  Fit  on  the  Elastic  Stress  Distribution 
( l)  Aluminum  Plates 

Using  the  analysis  techniques  described  in  Section  3.3.1  and 
Appendix  I our  A lumlnum  Joints  loaded  by  means  of  a  single  rigid  fastener 
were  studied.  The  geometric  properties  of  these  are  given  in  Table  3. 

Orthomat  drawings,  used  as  a  means  of  checking  the  input,  were  made  and  are 
shown  in  Figs.  24  and  25  .  Problem  P  2.1  has  the  same  geometry  as  the 
double  shear  single  fastener  Joints  used  in  the  teBt  program  and  described 
fully  in  Chapter  7.  Results  of  the  analysis  to  be  presented  in  this  section 
coupled  with  the  three  dimensional  effects  caused  by  fastener  bending  and 
shear  given  in  Chapter  4  will  be  used  as  a  comparison  of  the  present  analysis 
with  the  experimentally  determined  load  deflection  curve. 

The  effects  of  load  level  and  Initial  fit  or.  the  lead  distribution 
at  the  contact  surface  between  the  fastener  ana  the  plate  are  illustrated  in 
Figs.  25  to  28  for  plate  P  2.1.  In  these  figures  the  loads  on  the  rigid 
fastener  are  drawn  vectorially  to  scale  for  three  different  load  levels: 

500  lb,,  2000  lb.  and  8000  lb.  applied  load.  It  should  be  noted  that  the 
loads  acting  on  the  plate  structure  are  equal  and  opposite  to  those  shown  in 
these  figures.  For  the  initial  lack-of-f it  cases  it  can  be  seen  that  as  the 
load  increases  the  fastener  deforms  into  the  plate  with  the  consequence  that 
more  and  more  points  around  the  periphery  come  into  contact.  The  effect  of 
interference  fit  on  the  lead  distribution  is  to  create  a  pre-compression  on  the 
fastener  or  a  pre-tension  or  hoop  stresses  around  the  periphery  of  the  hole. 

As  the  load  of  the  fastener  is  increased  the  initial  load  distribution  changes 


19 


and  for  the  smaller  valueB  of  interference  (  =  O.OOU  and  0.02)  the  applied 

load  is  enough  to  pull  the  fastener  away  from  the  top  of  the  hole  (Fig.  2 8  ). 

The  variation  of  the  maximum  tangential  stresses  at  the  net 

section  at  different  load  levels  is  illustrated  in  Figs.  29  to  31  .  Fig.  29 

AD 

gives  the  maximum  tangential  stress  distribution  for  a  clearance  of  ■  O.OOU 
of  plate  P  2.1  and  Fig.  30  gives  the  distribution  for  a  clearance  of  »  0.02. 

The  variation  of  tangential  stress  at  a  section  e  a  8l°  for  four  different 
interference  fits  is  illustrated  in  Fig.  31  •  These  results  although  obtained 
from  an  elastic  analysis  can  still  be  very  useful  for  generating  stress 
concentration  factors  needed  in  a  fatigue  analysis.  The  application  of  these 
results  to  fatigue  analysis  of  typical  joints  is  illustrated  in  Chapter 
The  stress  concentration  factors  vary  with  amount  of  clearance  and  level  of 
load  as  illustrated  in  Figs.  32  to  3U  for  problem  P  1.1  to  P  1.3  respectively. 
Note  from  these  figures  that  the  clearance  increases  the  stress  concentration 
factor  substantially  and  hence  it  may  be  anticipated  that  the  fatigue  life  of 
the  Joint  will  consequently  be  decreased  . 

In  the  case  of  interference  fit  fasteners  the  stress  concentration  factor, 

as  defined  in  this  study  (maximum  stress  divided  by  net  section  stress)^  must  be 

modified.  At  zero  applied  load  a  substantial  tensile  tagential  stress  can 

exist  at  the  edge  of  the  hole  depending  on  the  magnitude  of  the  interference 

and  the  position  around  the  hole.  The  method  of  defining  stress  concentration 

factors  for  interference  fit  fastener  was  to  use  the  net  section  stress,  o  , 

ne  „ 

as  follows: 


where, 


Cnet  a0  +  ^appl.  (  13  ) 

=»  mean  net  section  stress  at  aero  applied  lend 


°appl. 


=  mean  net  section  stress  corresponding  to  the 


applied  load 


Using  this  approach  the  modified  stress  concentration  factor  for 
plate  P  2.3  with  an  interference  fit  ■—  ■  O.OOU  was  computed  at  six  different 

cross  sections  and  plotted  vs.  Increasing  applied  net  section  stress  in 
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Fig.  35.  The  results  of  Fig.  35  imicate  that  for  a  net  section  stress  below 
c;r  Ksi  the  critical  section  is  at  9°  to  the  direction  of  load.  As  the  load 
increases,  however,  the  critical  section  rotates  by  .  This  phenomenon  can 
be  explained  by  the  fact  that  at  a  net  section  stress  above  25  ksi  the  fasteDer 
has  completely  overcome  the  radial  clamping  effect  of  interference  and  is 
beginning  to  pull  from  the  top  of  the  hole.  This  has  also  been  observed  ex¬ 
perimentally  in  Ref.  7  •  t£>  \ 

For  the  same  plate  a  ten  times  larger  interference  (~  -  0.04, 

indicates  similar  trends  but  at  much  higher  net  section  stresses  as  shown  in 
Fig.  36.  A  plot  of  maximum  modified  stress  concentration  factor  vs.  applied 
net  section  stress  is  shown  in  Fig.  37  for  the  same  plate  with  three  different 
interference  fits. 

Another  important  aspect  of  the  plate  with  a  single  loaded  fastener 
analysis  is  the  use  of  the  plate  "spring  constant"  as  input  to  the  study  of  three 
dimensional  effects  (Chapter  4).  The  load-deflection  curves  of  two  of  the 
aluminum  Joints  are  shewn  in  Figs.  38  and  39  for  all  the  different  initial  fit 
conditions  indicated. 

(2)  Titanium  Plates 

The  problem  of  a  two  fastener  titanium  joint  in  double 
sheer  was  also  analyzed  using  the  contact  problem  program.  The  dimensions  of 
the  outer  plates  of  the  Joint  are  shown  in  Fig.  4o  together  with  the  finite 
element  model  used  in  the  analysis.  Results  of  tho  effect  of  different 
clearances  on  the  stress  concentration  factor  are  presented  in  Fig.  4 X 
with  increasing  net  section  stress.  The  effect  of  load  on  the  stress  con¬ 
centration  factor  with  increasing  load  is  not  as  large  as  in  the  case  of  the 
aluminum  joints  (Figs.  32  to  3*+  )  which  had  a  different  geometry.  The 
results  of  Fig.  4l  were  used  in  Chapter  5  to  compare  the  analytical  fatigue 
life  predictions  with  actual  spectrum  test  results.  The  comparison  of  these  is 
shown  in  Fig.  61  and  the  experimental  work  pertaining  to  the  titanium  Joint 
ie  described  la  Section  7.2.2. 
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3.2  Elastic  and  Plastic  Interference  Stresses  In  Plates  With  Squeeze  Rivets 


3-2.1  Introduction 

In  order  to  increase  the  fatigue  life  of  joints,  a  variety  of  tech¬ 
niques  have  been  proposed  including  the  use  of  interference  fit  fasteners. 
Several  commercial  fasteners  using  this  technique  have  now  become  available, 
the  difficulty  in  using  some  of  these  fasteners,  however,  is  the  need  for 
special  drills  and  tools  for  their  installation. 

A  cheaper  alternative  is  to  squeeze  a  relatively  soft  rivet  into  the 
joint  hole  under  a  large  enough  force  to  obtain  appreciable  plastic  flow  in 
the  rivet  with  enough  radially  outward  bulging  of  the  rivet  to  produce  yield¬ 
ing  in  a  substantial  region  of  the  place  surrounding  the  hole. 

When  the  squeeze  force  is  released,  the  rivet  and  plate  spring  back, 
with  the  radial  spring-back  of  the  plate  tending  to  exceed  that  of  the  rivet 
at  the  hole  boundary.  The  result  is  to  create  an  interference  fit  between  the 
rivet  and  the  plate  and  a  state  of  »esidual  stresses  in  the  plate  which  Bane 
test  results  indicate  gives  a  beneficial  effect  on  the  fatigue  life  of  the 
Joint. 

This  study  was  undertaken  in  order  to  study  the  effect  of  material 
selection  and  squeeze  force  on  the  resulting  residual  stresses  around  the  rivet 
hole. 

3.2.2  Method  of  Analysis 

As  a  first  step  in  the  solution  procedure,  a  plastic  analysis  of  the 
plate,  into  which  the  rivet  is  squeezed,  is  performed.  The  specific  analyses 
in  this  section  were  made  using  a  finite  element  plasticity  program  developed 
for  the  government  by  Grumman  and  presented  in  Refs.  8  and  9  .  Basically 
the  initial  strain  approach  used  in  the  inelastic  stress  and  deflection  anal¬ 
ysis  program  described  In  Chapter  2  is  used  in  this  program  also.  However, 
the  program  has  additional  capabilities  in  being  able  to  handle  conylete  Btress 
reversal  into  the  plastic  range  (not  merely  elastic  unloading).  In  addition  it 
can  account  fer  the  Bauschinger  effect, which  in  the  case  of  uniaxial  stress  is 
characterized  by  a  reduction  in  compressive  yield  stress  due  to  prior  yielding 
in  tension  and  vice  versa, and  is  thus  significant  for  unloading  and  reversed 
loading  situations. 
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Tns  idealization  in  the  analysis  i3  shown  in  Fig.  42  .  The  axi- 
eymmetric  model,  representing  one  quarter  of  the  structure  is  composed  of  144- 
plan  ar  triangular  elements  in  which  stress  and  strain  vary  linearly. 

The  rivet  is  assumed  to  be  a  cylindrical  structure  which  fits  neatly 
into  the  plate  hole  prior  to  squeezing  under  high  pressure.  During  squeezing 
it  is  assumed  to  undergo  plastic  deformations  based  on  the  deformation  theory 
of  plasticity.  In  Ref.  lo  both  incremental  and  deformation  plasticity  theories 
were  used  to  study  a  shear  lag  problem  in  which  the  answers  obtained  by  the  two 
theories  agreed  very  well.  The  rivet  and  plata  structures  are  coupled  by  means  of 
a  semi-graphical  technique  described  fully  in  Ref.  11.  Easically  the  method 
combines  the  stress  strain  behavior  of  the  two  structures  at  the  point  of  con¬ 
tact  to  obtain  a  compatible  solution  during  maximum  squeezing  or  subsequent 
unloading. 

3.2.3  Results  of  Analysis  and  Discussion 

(1)  Aluminum  ?late  with  Aluminum  Rivet 

An  elasto-plastic  analysis  was  made  of  a  3/8  in,  thick  aluminum 
plate  made  from  2024-T351  alloy.  A  3/8  in.  diameter  rivet  of  the  same 
material  vae  squeezed  with  a  20  kip  force.  The  objective  of  this 
study  is  to  determine  the  residual  stress  distribution  in  the  plate 
when  the  squeeze  force  is  removed. 

The  finite  element  solution  for  the  idealization  shown  in 
Fig.  42  is  presented  in  Fig.  43  together  with  the  solutions  of 
the  coupled  structure  (plate  and  rivet).  Fig.  43  shows  the  vari¬ 
ation  in  the  circumferential  stress,  ct9,  at  the  hole  boundary  with 
increasing  applied  radial  stress,  aT>  at  the  hole  boundary  during 
loading  and  subsequent  unloading  from  several  values  of  The 

corresponding  positions  of  the  yield  boundary  for  each  of  these 
radial  stresses  is  shown  in  Fig.  44. 

It  is  seen  from  Fig,  43  tbet  yielding  occurs  when  the  radial 
stress  exceeds  23,000  psi.  As  the  radial  stress  increases  beyond 
23,000  pal  the  circumferential  stress  first  shows  a  relatively  small 
increase  arri  then  begins  to  decrease.  If  the  applied  radial  stress 
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Is  then  reduced,  the  plate  first  unloads  elastically,  along  lines 
parallel  to  the  original  elastic  loading.  Fig.  43  shows  the 
straight  line  elastic  reduction  in  circumferential  stress.  As  the 
unloading  proceeds,  the  initially  tensile  circumferential  stresses 
change  sign  and  become  compressive.  Further  unloading  can  cause 
these  circumferential  compressive  stresses  to  become  large  enough 
to  result  in  yielding  opposite  to  that  which  occurred  during  loading. 
The  effect  of  yielding  during  loading  on  yielding  in  the  opposite 
direction  during  unloading  is  accounted  for  by  assuming  an  ideal 
Bauschinger  effect.  Still  further  unloading  causes  additional 
yielding,  with  a  consequent  reduction  in  the  magnitude  of  the  cir¬ 
cumferential  stress  at  the  hole  boundary  as  shown  in  Fig.  43  . 

A  plot  of  the  variation  of  circumferential  stress  with  distance 
from  hole  edge  is  shown  in  Fig.  45  for  the  peak,  squeeze  force  con¬ 
dition  (or  =  53.2  ksi)  and  two  levels  of  unloading.  The  curve  for 
cr  =  -38.5  ksi  is  the  solution  taking  into  account  the  plate-rivet 
interference.  The  curve  for  complete  unloading  to  or  -  0  and  the 
rivet  removed,  including  the  Bauschinger  effect,  is  also  shown. 

(2)  Titanium  Plate  with  Steel  Blvet 

Residual  stresses  were  evaluated  for  the  case  of  an  annealed 
titanium  plate  (Ti-6  Al-6V-25n)  into  which  a  3/8  in,  A286  steel  rivet 
was  squeezed  with  a  66  kip  force.  The  plate  has  the  same  configur¬ 
ation  as  the  aluminum  plate  in  the  previous  problem.  The  variation 
of  the  circumferential  stress  at  the  edge  of  the  hole  with  increas¬ 
ing  radial  stress  and  subsequent  unloading  from  3  levels  of  radial 
stress  is  shown  in  Fig.  46  .  The  yield  surface  boundary  for  these 
same  levels  of  radial  stress  is  shown  in  Fig.  47  . 

The  relationship  between  applied  squeeze  force  and  the  residual 
circumferential  and  radial  stresses  at  the  hole  boundary  is  shown  in 
Fig.  48  (a)  euid  (b)  respectively.  Two  curves  are  shown  in  each 

case  to  account  for  the  fact  that  the  applied  squeeze  force  is  not 
known  exactly  since  all  the  force  is  not  transmitted  to  the  shank  of 
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the  rivet.  In  the  present  analysis  it  is  assumed  that  the  axial 
stress  in  the  rivet  shark  is  somewhere  between  one-half  to  two- 
thirds  of  the  nominal  squeeze  stress,  P/A.  This  assumption  appears 
to  be  reasonable  in  the  case  of  protruding  head  rivets. 

In  Fig,  1+9  the  computed  interference  fit,  AD,  (the  change  in 
the  rivet  diameter)  is  shown  as  a  function  of  the  squeeze  force  for 
the  same  two  assumed  values  of  ti  «  a:.  *.al  rivet  shank  stress  used  in 
Fig.  48  .  Since  the  interference  uas  a  direct  relation  to  the  bene¬ 
ficial  effects  gained  in  improving  fatigue  life,  a  plot  such  as 
Fig.  49  can  be  extremely  useful.  From  it,  the  necessary  squeeze 
force  to  obtain  a  given  interference  can  be  read  directly. 

The  computed  interference  for  the  titanium  plate  shown  in 
Fig.  49  is  compared  to  some  experimental  results  obtained  from 
the  Grumman  Corporate  Titanium  Program.  The  experimental  values 
were  obtained  by  measuring  the  diameter  of  the  rivet  before  squeez¬ 
ing  and  after  the  load  is  removed.  To  get  the  final  change  in  dia¬ 
meter,  the  rivets  were  cut  fret  of  the  plate  and  measxired  at  vari¬ 
ous  locations  along  their  shank.  These  experimental  results  cannot 
be  compared  directly  to  the  computed  curves  of  Fig.  49  because  they 
ware  obtained  using  countersunk  rivets  that  were  squeezed  into  a 
Ti-6A1-4V  annealed  plate.  Nevertheless,  they  do  indicate  a  trend 
similar  to  that  of  the  analytical  results. 

3.2.4  Conclusions 

The  nature  of  the  plate  circumferential  residual  stresses  caused  by 
squeeze  rivets  can  change  depending  on  the  magnitude  cf  the  squeeze  force  and 
the  type  of  rivet  material  used.  Interference  f.t  fasteners,  however,  gener¬ 
ally  create  tensile  tangential  residual  stresses  by  expanding  the  hole  into 
which  they  are  applied. 

The  results  shown  in  Fig.  48  fo r  the  '  Itanium  plate  problem  can  be 
very  useful  in  controlling  the  squeezing  force  dui'.ng  manufacture.  For  the 
particular  materials  and  geometric  properties  chos  ;n.  Fig.  48  gives  the  range 


of  expected  circumferential  and  radial  reaidual  stresses  in  the  plate  at  thc- 
hole  boundary.  These  stresses  can  be  used  in  predicting  the  fatigue  life  of 
the  Joint. 

from  Fig,  ky  it  is  seen  that  the  method  of  analysis  can  be  a  val¬ 
uable  aid  in  predicting  the  amount  of  interference  to  be  expected.  By  corre¬ 
lating  the  Interference  to  the  Joint  fatigue  life  through  testing,  the  results 
of  Fig.  49  could  be  used  to  indicate  appropriate  values  of  squeeze  force 
needed  to  achieve  the  desired  interference  fit. 

It  is  concluded  from  this  study  that  the  squeezing  technique  can  be 
useful  iti  increas'ng  the  fatigue  life  of  Joints  and  further  correlations  with 
fatigue  tests  should  be  made.  Of  particular  interest  would  be  a  test  program 
using  protruding  head  rivets  to  measure  the  interference  fit  caused  by  differ¬ 
ent  values  of  the  squeeze  force.  The  protruding  head  rivet  with  a  cylindrical 
shank  of  constant  cross-section  corresponds  closer  to  the  three  dimensional 
model  used  in  the  present  analysis .  Attempts  to  evaluate  the  actual  rivet 
shank  stress  during  the  driving  operation  Ehould  also  be  maae. 


26 


CHAPTER  4.  THREE  DIMENSIONAL  EFFECTS  CAUSED  BY  FASTENER  BINDING  AND  SHEAR  - 


(UNBAR  ANALYSIS) 


4,1  General 

Because  of  the  extreme  complexity  of  tne  general  nonlinear  three 
dimensional  mechanical  fastener  problem,  the  preceding  analyses  were 
directed  towards  obtaining  strictly  planar  solutions.  These  planar 
solutions  might  be  considered  applicable  to  the  plates  in  a  symmetrical 
double-shear  Joint,  in  which  the  nominal  stress  is  uniform  through  the 
plate  thickness.  The  planar  solutions  might  also  be  assumed  to  apply  to 
individual  thin  layers  in  single-shear  Joints  (in  which  the  nominal  stress 
varies  linearly  through  the  plate  thickness)  provided  that  the  layers  are 
chosen  sufficiently  thin  to  put  each  individual  layer  in  a  planar  stress 
condition. 

In  obtaining  the  planar  solutions  the  effects  of  fastener  shear  and 
bending  deformation  and  fastener  rotation  were  assumed  secondary  while 
the  fastener  was  taken  as  both  rigid  and  cylindrical.  In  addition  many 
other  effects  such  as  fastener  head  shape, countersink,  clamp-up  force,  and 
contact  friction  were  also  neglected.  In  this  section,  the  ^fluence  of 
fastener  deformation  on  stress  distribution  through  the  plate  thickness 
and  overall  Joint  load  deflection  characteristics  are  estimated  by  means 
of  an  engineering -type  approximation,  in  this  treatment,  the  fastener  is 
assumed  .to  act  as  a  Bhort.  beam  with  either  shear  or  bending  deformations 
present,  but  not  both  existing  simultaneously. 

The  fastener-plate  interaction  is  idealized  as  a  beam  resting  on  a 
continuous  set  of  mutually  uncoupled  springs  such  that  the  bearing  forces  per 
unit  of  axial  length  are  directly  proportional  to  the  fastener's  transverse, 
centerline  displacements.  The  assumption  that  the  springs  are  not  coupled 
is  equivalent  to  assuming  that  the  plate's  transverse  shear  stiffness  may 
be  neglected,  and  different  layers  in  the  plate  slide  past  each  other  freely. 

Solutions  for  the  load  distribution  of  a  fastener  in  both  single  and 
double  shear1  are  obtained  for  the  linear  spring  rate's  obtained  in  Chapter  3. 

A  more  detailed  nonlinear  analysis  of  the  current  beam-on-elastic-foundation 
idealization  is  presented  in  Appendix  J.  This  more  detailed  analysis  outlines  how 
one  may  include  combined  shear  and  bending  effects  simultaneously,  both  nonlinear 
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and  nonuniform  spring  rates,  as  well  as  nonuniform  beam  effects  (such  as 
those  arising  from  tapered  shanks  or  countersunk  heads). 

Numerical-  results  are  presented  for  the  simplified  linear  beam  bending 
and  shear  theories  with  clamped  and  free  coalitions  at  the  fastener  heeds. 

The  ratio  of  maximum  bearing  stress  to  nominal  bearing  stress  through  the 
sheet  thickness  is  plotted  as  a  function  of  fastener-d iaroeter  to  sheet- 
thickness  ratio  for  several  Joint  configurations.  In  addition,  experimentally 
determined  Joint  load -deflection  curve  data  are  compared  with  the  analytical 
predictions  based  upon  the  method  of  this  chapter. 


t,2  Structural  Idealisation 

For  many  engineering  applications,  the  problem  of  a  beam  in'-eracting 
with  an  elastic  medium  can  be  treated  by  adopting  the  Winkler  hypothesis 
v;.ich  states  that  the  local  transverse  beam  displacement  ie  directly  propor¬ 
tional  to  the  local  load  intensity  per  unit  of  length.  The  loads  and  displace¬ 
ments  are  rela  1  through  the  'foundation  modulus",  h.  The  classical  treatment 
of  the  problem,  it  which  only  beam  bending  effects  are  included,  it  discussed 
in  many  texts  (e.g.  Refs.  12  and  13).  In  a  more  ln-deptn  treatment  of  this 
subject,  Hetenyl,  Rvf.  1*+,  demonstrates  that  its  applicability  to  foundations 
with  shear  continuity,  such  as  the  plates  comprising  our  Joints,  is  greater 
with  increasing  stiffness  ratio  and  that  it  yields  results  which 

are  closer  to  the  more  accurate  tliree  dimensional  case  (i.e.  beam  on  a  three- 
dimensional  half-space)  titan  does  a  tvo-diaenalonal  (i.e.  beam  on  a  tvo- 
dimenslon-  1  half-space)  elasticity  solution. 

TiucsJienKO,  Ref.  If,  distinguishes  among  three  groups  of  beams  which  Include 
bending  effects  only:  "short"  (BIO. 6),  "medium"  (0.6<B/<5.0j  and  "long1 
(BI>5.0) where  l  is  the  beam  length  and 


*  *  "iTTTrr r 

beam 

For  sho"t  beLmo,  which  correspond  to  trie  present  idealization  of  the 
fastener,  Timoshenko  claims  that  bending  can  be  entirely  ignored  p.nd  that 
the  ceru)  can  te  considered  as  absolutory  rigid  in  comparison  with  the 
foun  atlon.  However,  it  Is  well  kr.on  that  shear  effects  are  generally  more 


important  t:ian  bending  effects  for  short  beams  and  so  a  higher  order  beam 
theory*  should  be  considered  for  such  applications.  Crandall,  Ref.  15, 
Essenburg,  Ref.  1 6,  and  Hess,  Ref.  IT,  have  treated  various  more  accurate 
beam  theories  in  conjunction  with  a  Winkler  foundation.  Their  results 
show  that  for  softer  foundations,  E/k  >  1  (which  corresponds  to  the  fastener 
problem),  shear  effects  in  the  beam  decrease  in  importance  and  the  behavior 
of  the  beam  approaches  that  predicted  by  elementary  beam  theory. 


The  present  section  attempts  to  estimate  some  of  the  higher  order 
effects  associated  with  fastener  flexibility.  To  achieve  this,  two  simplified 
beam  theories  which  separate  the  bending  and  shear  effects  in  the  fastener, 
are  used.  In  concluding  these  preliminary  remarks,  we  note  that  the 
remarkably  wide  range  of  practicability  of  the  elementary  beam  formulas 
stems  from  the  fact  that  these  formulas  provide  excellent  approximations  to 
the  elasticity  solutions  in  a  large  number  of  problems,  Ref.  18. 


4.3  Beam  Equations 


The  most  elementary  and  useful  beam  idealization  which  includes  the 
effects  of  both  bending  and  shear  is  called  the  Timoshenko  beam f Ref.  19.  In  a 
manner  similar  to  that  used  in  elementary  beam  theory,  this  theory  assumes 
plane  sections  before  loading  remain  plane  after  loading.  However,  unlike 
simple  bending  theory,  the  normal  to  the  beam  center  line,  at  any  given  section, 
before  loading  ,  will  differ  from  the  normal  to  the  deflected  center-line, 
after  loading, by  a  shearing  angle, 3,  caused  by  the  local  shear,  Q.  The 
relationship  is  expressed  by 


Q 

JaT  " 


(14) 


where  G  is  the  material's  shear  modulus  and  A  is  the  beam  cross-sectional  area. 


*  The  various  technical  beam  theories  are  engineering  approximations  to  the 
mathematically  precise  theory  of  linear  elasticity.  The  technical  theories 
which  include  shear-deflection, excluded  in  elementary  beam  theory,  are 
generally  referred  to  as  "higher-order"  beam  theories. 
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The  parameter  X  is  dependent  on  the  geometry  of  the  bean  cro6s-seetion 
and  relates  ft  to  the  Domlnai  average  shearing  engle  of  the  crose-section. 
For  circular  cross-section  beans,  Covper,  Ref.  20,  gives 


X  = 


6  LL±.v) 

7+6 v 


vhere  v  is  Poisson's  ratio  for  the  bean  material. 


(15) 


The  linear  equilibrium"  equations  for  a  beam  element,  regardless  of 
vbich  beam  theory  is  used,  (reference  Figure  50a) 


dM 

cbc 


+  <4 


0 


(16) 


& 

dx 


(17) 


vhere  M  is  the  internal  moment,  q.  is  the  external  loading  per  unit  of 
length,  and  x  is  the  axial  coordinate.  For  a  Winkler  foundation  with  spring 
modulus  k  ve  have 

o  a  -k  y  (l8) 

vhere  y  is  the  transverse  deflection  relative  to  a  rigid  portion  of  the 
foundation.  The  usual  linear  beam  hypothesis  of  plane  section  behavior 
yields 


M  ddf 

El  =  dx 


(19) 


vhere  $!  is  the  rotat.  a  normal  to  the  beam  center  line  caused  by 

loading  (reference  Figure  50b).  If  ft  vere  zero, and  d^  vould  coincide, 

dx 


Hence,  from  purely  kinematic  considerations 


e  -  %.  ■* 


(20) 
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Combination  of  Eqs.  {  l4  )  through  (  20  )  yields  the  appropriate  Timoshenko  beam 
equations  for  interaction  of  a  circular  crose-eection  beam  with  a  Winkler 
foundation.  It  should  be  noted  that  up  to  this  point  no  assumptions  as  to 
property  variation  along  the  beam  haw  been  made.  Therefore,  to  further 
simplify  the  problem,  the  assumption  is  marie  that  El,  k  and  GA  are  indepen¬ 
dent  of  x  (the  more  general  case  is  discussed  in  Appendix  j).  The  resulting 
equation  is: 


.  JL. 

7?  ** 


dx' 


X  +  *1  o 

2  El 


(21) 


Two  simplified  cases,  the  first  corresponding  to  the  classical  beam  theory 
in  vhich  shear  effects  are  ignored,  and  the  second  corresponding  to  pure 
shear  tVory  In  which  bending  effects  are  ignored,  are  considered  below. 


k.^.l  Classical  Beam  Bending  Theory:  Ignoring  shear  deformations  (i.e.  0  »  0) 
is  equivalent  to  setting  the  shear  flexibility  (X  GA)  1,  to  zero  in  Eq.  (d>). 
Once  this  is  dons,  the  claseicial  beam  on  elastic  foundation  equations  result: 


* 

M 


,  & 
dx 

(22c) 

-El^ 

(22b) 

+  -  y  ~  0 

El 

(22c) 

The  general  solution  to  Sq.  (22c) 


takes  the  form 


(22d) 


y  «  cosh  0x  (A  cos  0x  +  B  sin  0x)  + 

Binh  px  (C  cos  0x  +  D  sin  0x) 
where  the  values  of  A,  B,  C  and  D  are  determined  by  boundary  conditions  on 
the  beam  and  the  solution  for ^  may  be  obtained  by  differentiation  of  the 
solution  as  Indicated  by  Eq.  (22a). 
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h.3.2  Shear  Beam  Theory:  In  a  manner  similar  to  that  used  in  eliminating 


shear  effects  ,  beam  bending  deflection  may  be  eliminated  by  setting  the 
bending  flexibility,  (El)'1,  to  zero.  Eq.  (19)  gives: 

=  0  (23a) 

dx 

Differentiating  Eqs.  (ih)  and  (20)  ,  and  su’- stituting  into  Eqs.  (17)  and 
(l8)  gives: 


*  o  (23b) 

dxd  XGA 

The  general  solution  to  Eq.  (23b)  ia 

y  =  E  ainh  yx  +  F  cosh  yx 

r$~  (23c) 

where  y 

and  E  and  F  may  be  determined  by  again  satisfying  the  boundary  conditions. 
The  solution  for  is  readily  obtained  by  integration  of  Eqs,  (16)  and  (23*0 
between  limits  and  x^,  and  substitution  of  Eqs.  (ih)  and  (20)  to  yield: 


«1  -  ^  =  AfiA  ((Xg  -  x1)  <k  -  yg  +  y1) 


where. 


M^=M(x=x^),  y^  =  y  (x  =  ,  1  ■  1,  2 


Particular  solutions  of  the  beam  bending  and  shearing  cases  are 
giver,  in  the  following  subsections. 
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4.1+  Fastener  in  Single  Shear 

4.4.1  Fastener  with  Negligible  Head  Stiffness 

To  demonstrate  typical  results  from  application  of  the  above  idealiza¬ 
tion  to  a  fastener  in  single  shear  for  an  anti- symmetrical  structural  Joint 
/  ,  .  * 

(see  Figure  51(a;  ,  several  cases  are  investigated  below. 

(l)  Bending  Theory;  Tne  boundary  conditions  associated  with  Eqs.  (21 )  axe 
Q  (0)  =  PQ,  M  (0)  =  0,  Q  (t)  -  0,  M  (t)  =  0. 

The  resultant  bearing  load  distribution  on  the  plate  (and  fastener)  is 


at 

Pn 


n 


2  Ft 


f  slnh  ftt  cos  gx  cosh  (t  -  x)  -  sin  Ft  cosh  Fx  cos  F  (t  -  x) 


sinh“  Pt  -  sin2  Ft 


i  (24) 

i 


(2)  Shear  Theory:  Applying  the  same  boundary  conditions  as  for  the  bend 

ing  theory  to  Eqs.  (23)  yields 


qt  _  1  slnh  yx  +  sinh  t-x)-vt  cosh  y(t-x) 

Fq  ~  i  yt  slnh  yt  +2(1- cosh  yt) 


(25) 


(3)  Rigid  Fastener:  Fot  a  rigid  beam,  force  and  moment  equilibrium 

considerations  yield 


.  bz-  =  as. 


V* 


(26) 


It  should  be  noted  that  both  Eqs.  (24)  and  (25)  can  be  shown  to  approach 
Eq.  (26)  in  the  limit  as  the  fastener  becomes  essentially  rigid  compared 


Note,  that  although  the  springs  in  Figure  51  are  pictured  as  compression 
springs  acting  at  the  hearing  surface  of  the  fast  ner,  the  spring  constant 
is  actually  deperrient  upon  the  overall  elastic  properties  of  the  plate  ir. 
a  complex  state  of  stress  involving  both  tension  and  compression. 


to  the  foundation.  This  result  may  be  achieved  through  consideration  of 
the  series -expansions  of  the  cosh  and  slab  functions,  letting  y  and  £ 
approach  zero,  and  performing  appropriate  limiting  processes. 

Numerical  results,  corresponding  to  Eqa.  (24)  through  (26)  ,  for 
a  typical  set  of  parameters  are  presented  in  Table  4 , 

As  can  be  seen  from  Table  4,  for  the  realistic  parameters  employed, 
the  fastener  performs  in  an  essentially  rigid  manner  and,  both  shear  and 
bending  effects,  acting  separately,  cause  only  a  slight  perturbation  upon 
this  behavior.  However,  shear  flexibility  is  the  mere  Important  factor  of  the 
two  since  its  effects  are  an  order  of  magnitude  greater  than  those  due  to 
bending  for  the  parameters  used  in  Table  4,  Therefore,  in  the  subsequent, 
solution  for  the  clamped  head  fastener  in  single  shear,  below,  principal 
attention  will  be  given  to  the  aolution  of  the  shear  beam  theory,  since  it  is 
anticipated  that  bending  effects  are  negligible. 

,4.4.2  Fastener  With  Clamped  Head 

It  should  bi  noted  that  the  assumed  highly-flexible-head  performance  of  th 
previous  configuration  permits  an  overall  cocking  action  of  the  fastener 
relative  to  the  plate,  provided  the  plate  has  negligible  transverse  shear 
stiffness  (as  war  initially  assumed).  However,  if  the  fastener  has  stiff 
bead -attachments  which  tend  to  clamp  the  plate  locally,  then  the  fastener  is 

prevented  from  rotating  at  the  ends  relative  to  the  plate.  Thus,  the  limiting 
case  becomes  -  0  at  the  ends  of  the  fastener.  In  addition,  the  head  is 
assumed  to  exert  no  net  shear  upon  the  fastener.  Under  these  conditions, 
the  resultant  bearing  load  distribution  on  the  plate  and  fastener  using  shear 
beam  theory  is: 


and  the  corresponding  rigid  fastener  solution  is  qt/P^  *  Hesults  are 
presented  in  Table  5  for  the  same  typical  p&ramters  as  were  used  in 
Table  4  . 


The  idealization  considered  for  the  fastener  in  double  shear 
(Reference  Figure  52)  is  to  divide  the  top  half  of  the  fastener  into  two 
shorter  beams  Joined  by  appropriate  compatibility  coalitions.  For  the 
symmetrical  case,  the  shear  beam  theory  yields  'I'  ae  constant  (from  Eq. 

(19).  Therefore,  for  the  symmetrical  case,  m  0  regardless  of  head  effects. 


The  constants  and  may  be  determined  through  the  boundary 
conditions 


p0(tl  ♦  M 

M(o)  .  - 5-^- 


and 


Q(t1) 


The  constants  through  Cg  nay  be  determined  by  the  boundary 

conditions  -0)  1  0,  and  M(x“0)  =  0  (for  a  very  flexible  fastener)  or 

(for  e.  rigidly  clamped  fastener  head),  and  compatibility  conditions 

on  Q  and  'I'at  x  -^’1. 

2 

Typical  numerical  results  using  Eqs.  (28)  and  (29)  are  presented  in 
Table  6.  It  should  be  noted  that  although  the  shear  theory  produces 
greater  fastener  flexibility  effects,  the  difference  from  the  bending 
theory  results  are  far  less  pronounced  than  was  the  case  for  the  fastener 
in  single  shear.  This  indicates  that  fastener  bending  is  a6  important  a 
factor  as  shear  is  for  such  configurations. 

t.6  Parametric  Study: 

The  ratio  of  peak  bearing  stress  for  a  flexible  fastener  versus  peak 
bearing  stress  for  a  rigid  fastener  may  be  employed  as  a  stress  concentration 
factor  to  account  for  variations  in  b.srlng  load  through  the  plate  thickness. 

A  series  of  bearing  stress  ratio  cur-.  .  s  as  functions  of  fastener  diameter  to 
plate  thickness  ratio  are  presented  in  Figures  53  and  5^  .  Results  for  two 
values  of  E/k,  which  represent  approximate  practical  limits  for  this  parameter, 
are  presented.  As  can  be  expected,  the  stiffer  fastener  to  plate  ratios  (i.e, 
higher  E/k)  and  larger  V/t  ratios  yield  results  which  approach  those  for  si 
rigid  fastener. 

It  should  bs  noted  that  the  bearing  stress  in  each  plate  lamina  is  a 
measure  of  the  two  dimensional  stress  state  level  in  the  lamina,  as  given  in 
Chapters  2  and  3-  Thus,  the  bearing  stress  ratios  presented  in  Figures  53 
arm  5^  may  be  viewed  as  stress  concentration  factors,  caused  by  fastener 
flexibility,  over  and  above  the  plate  stress  concentrations  resulting  from  the 
purely  iwo  dimensional  plate-fastener  considerations  of  Chapter  3. 
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4.7  Comparison  of  Tests  vlth  Theory 

Overall  Joint  flexibilities  for  single  fasteners  in  doable  shear,  for  a 
given  gage  length,  vere  determined  both  experimentally  and  by  the  methods  of 
this  section.  A  series  of  15  tests  were  performed  on  aluminua-plate,  symmet¬ 
rical,  double- shear  lap  Joints  using  titanium  fasteners.  Twelve  (12)  of  these 
specimens  were  Joined  by  loose  fitting  fasteners  and  the  remaining  three  ( t ) 
by  interference-fit  fasteners.  A  more  complete  description  of  the  tests  and 
parameters  investigated,  such  as  plate  friction  and  fastener  clump-up,  is 
presented  in  Chapter  7. 

The  analytical  model  used  for  comparison  purposes  is  the  shear  beam  of 
Section  4.5  (Eqs,  (28)  and  Figure  52).  However,  since  the  elastic  founda¬ 
tion  supports  for  the  center  and  outside  plates  are  assumed  fixed  in  that 
model,  we  must  add  rigid  body  displacements  tc  each  segment  idealization 
to  obtain  the  total  Joint  deflection,  'This  is  equivalent  to  obtaining 

the  differences  In  displacements,  relative  to  the  fastener,  of  the  foundations 

in  the  center  and  outside  plates,  iu  the  planes  common  to  both  (i.e  x  =  — i-i. 

2  ' 

Thus, 

6T  =  yl  =  "  >r2  (x  =  ^ 

which  by  virtue  of  Equations  (28)  yields 


.  =  _Q_  (  1 _ 

°T  2X0A  'y.tanh  Vi  tj 
x  2 


V2  tanh  Ygtg 


Since  the  plate c  Joined  in  the  tests  were  of  the  same  material 
and  the  thicknesses  satisfied  the  relationship 


tl  -  2t2 


Equation  (30)  reduces  to 


k  tanh 


becomes 


Thus,  t.he  effective  Joint  stiffness, 


ytj. 

*0  k  tanh  ~rr 

ke«  “  r  =  Y 


(31) 


which,  in  the  limit,  as  the 
stiffness  Oo.\)  approaches 


11m 
7  ~  0 


ratio  of  plate 
zero,  becomes 
kt. 


k 


eff . 


stiffness 


(k)  to  fastener 


(32) 


Equations  (3l)  and  (32)  vert  used  to  generate  effective  stiff¬ 
nesses  for  both  titanium  and  steel  fasteners  joining  aluminum  plates. 

The  plate  stiffness  was  varied  to  account  for  various  conditions  of  fit; 
i.e.  loose,  ns at,  aid  Interference.  Numerical  results  for  these  cases 
are  presented  in  Tanle  7  end  the  corresponding  stiffness  for  the  linear’ 
portion  of  tbe  experimental  results  (summarized  from  Appendix  K)  are 
presented  in  Table  8. 

The  last  three  columns  of  Table  7  show  the  effect  of  increas¬ 
ing  the  fastener  to  plate  stiffness  ratio,  as  well  as  the  relative 
importance  of  including  the  three  dimensional  effect  of  fastener  flexi¬ 
bility  upon  the  overall  Joint  stiffness.  However,  it  should  be  noted 
that  the  effects  of  fastener- to-hole  fit,  which  can  be  observed  by 
comparing  the  loose,  neat, and  interference  fit  results,  r.rt  more  sig¬ 
nificant  in  establishing  the  Joint's  net  compliance. 


A  coiqparlson  of  results  between  Tables  7  and  8  reveals  excellent 

agreement  for  the  loose  fitting  titanium  fasteners  and  good  agreement 

for  the  interference  fit  titanium  fasteners.  However,  it  should  be  noted 

that  the  variation  cf  measured  results  from  test  to  test,  for  similar 

conditions  cf  fit,  varied  significantly  and,  that  Table  8  gives  only 

average  values.  In  addition,  the  definition  for  the  elastic  plate  modulus, 

k  is  somewhat  arbitrary  in  the  case  of  the  interference  fit  fasteners 
e 

(Fig.  75)  because  of  the  highly  non-linear  nature  of  the  virgin  load- 
deflection  curve  for  all  levels  cf  loading.  (The  method  used  in  obtain¬ 
ing  the  k_e  values  for  these  types  of  curves  was  to  define  to  be  the 

secant  modulus  to  an  arbitrary  value  of  the  load  level  equal  to  l/3  of 
the  ultimate  load,  P^,  sustained  by  tne  Joint. ) 


CHAPTER  5  APPLICATION  OF  RESULTS  TO  FATIGUE  ANALYSIS  OF  JOINTS 


5.1  Introduction 

The  fatigue  strength  of  a  discretely  fastened  joint  is  dependent  to  different 
degrees  on  various  parameters  within  the  joint.  Of  major  importance  to  fatigue 
life  is  the  magnitude  and  range  of  stress  and  strain  at  critical  points  within 
the  joint.  The  stress  distribution  is  largely  related  to  joint  geometry,  but 
is  influenced  to  significant  degrees  by  various  other  parameters,  such  as  type 
and  order  of  loading,  clamp«up  forces,  variation  in  fit  between  different 
fasteners  in  a  multi- fastener  joint  and  clearance  or  interference  between 
fastener  and  hole.  Fatigue  strength  is  also  influenced  by  fretting,  which  can 
occur  as  a  result  of  relative  movement  between  fastener  shank  and  hole  surface 
or  between  the  inner  and  outer  members  of  a  joint.  This  phenomenon  is  difficult 
to  include  in  a  fatigue  strength  calculation,  except  by  the  use  of  empirically 
determined  fatigue  strength  reduction  factors.  The  effects  of  in-plane  loads 
induced  by  frictional  forces  due  to  clamp-up  are  also  difficult  to  assess 
except  by  experimental  procedures. 

Of  the  many  factors  which  affect  the  fatigue  life  of  a  mechanically  fastened 
Joint,  clearance  or  interference  between  fastener  and  hole  is  one  of  the  most 
important.  In  addition,  it  Is  also  a  joint  parameter  that  can  be  controlled 
in  design  and  manufacture.  Fatigue  tests  have  shown  that  fatigue  life  is  gen¬ 
erally  reduced  as  a  result  of  increasing  clearance,  and  improved  when  there  is 
an  interference  fit.  If  the  degree  of  reduction  or  Improvement  in  fatigue  life 
is  reasonably  well  established  it  is  possible  to  use  various  fits  to  advanta(  . 
For  example,  Increased  hole  tolerances  in  certain  areas  may  x-esult  in  a  saving 
in  production  costs.  Also,  the  necessity  of  otherwise  using  interference  fit 
fasteners  to  increase  fatigue  life  can  be  evaluated. 

The  present  investigation  is,  therefore,  largely  concerned  with  the  effect 
of  changes  in  stress  distribution  due  to  geometry  and  fit,  as  they  influence 
the  calculation  of  fatigue  strength.  Except  as  inherent  properties  of  the 


test  results,  fretting  and  clamp-up  are  neglected. 

Sane  examples  of  test  data  demonstrating  the  effect  of  clearance  and 
interference  are  presented  in  References  21  and  22  for  constant  amplitude 
loading.  However,  the  number  of  systematically  run  test  programs  to  evaluate 
the  effect  of  clearance  and  interference  fits  on  fatigue  life  is  limited,  and 
such  data  as  are  available  are  usually  confined  to  constant  amplitude  tests 
where  residual  stress  effects  are  not  present  to  complicate  the  results.  In 
spectrum  f;tigue  loading,  the  effects  of  residual  stresses  Induced  as  a  result 
of  high  loads  in  the  spectrum  must  be  considered. 

In  the  application  of  the  results  of  the  present  study  to  the  fatigue 
analysis  of  joints,  two  specific  joint  configurations  have  been  considered. 

The  fatigue  life  of  these  joints  has  been  investigated  for  conditions  of  clear¬ 
ance  and  neat  fit,  for  typical  aircraft  maneuver  spectrum  loadings.  In  addition, 
constant  amplitude  fatigue  life  predictions  have  been  made  for  conditions  of 
neat  fit  and  interference  on  one  joint  configuration.  The  methods  of fetigue 
analysis  are  described  in  the  following  section. 

5 .2  Method  of  Fatigue  Analysis  for  Joints  with  Neat  Fits  and  Clearance  Fits 

5.2.1  Constant  Amplitude  Loading 

The  fatigue  life  prediction  method  of  Reference  23  which  has  been 
used  in  this  analysis  is  based  on  the  strain  cycling  concepts  of  Manson,  Peterson 
and  others  (References  2k  and  25  ),  who  employed  constant  strain  amplitude, 
fwllj  reversed  strain  aycll.."  d^te  ‘o  es+-v**  *  .~h  relationships  between  total 
strain  amplitude  and  cycles  to  failure,  for  unnotched  specimens  tested  in  fatigue 
at  zero  mean  stress.  The  method  of  Reference  23  gives  a  procedure  for  extend¬ 
ing  the  approach  to  cover  cases  other  than  zero  mean  stress-  In  using  the  method, 
the  basic  assumption  is  made  that  the  material  at  the  edge  of  a  hole  or  other 
stress  raiser  will  fail  in  fatigue  at  the  same  life  as  an  unnotched  specimen 
subjected  to  the  same  strains.  It  is  therefore  necessary  to  establish  the 
strain  range  at  the  critical  section  of  the  notch.  For  a  given  load  cycle, 
stress-strain  variation  at  the  critical  fatigue  section  (generally  the  region  of 
maximum  stress  concentration)  is  established  using  several  approximations.  The 
procedure  is  illustrated  in  Figure  55  ,  for  the  condition  in  which  the  applied 
maximum  stress  is  tensile,  and  the  minimum  stress  is  zero  in  the  fatigue  cycle. 


For  values  of  minimum  applied  stress  other  than  zero,  a  modification  of  this 
procedure  is  given  in  Reference  23  •  The  nominal  applied  stress  in  the  loading 
cycle  varies  from  0  to  friax  (Figure  5  5  )>  Point  A.  The  corresponding  stress 
at  the  notch  root  is  assumed  to  vai-y  from  0  to  a  ,  (point  B),  where  c 

is  given  by  the  expression 

°rij&x  ^fp^max  ( 33 ) 


Kfp  is  a  plastic  stress  concentration  factor  calculated  by  the  Stowell 
formula  (Reference  26).  The  strain,  smax'  corresponding  to  <r  x,  is 
obtained  from  a  cyclic  stress-strain  curve  similar  to  Figure  56.  When  the 
section  is  unleaded,  the  material  at  the  edge  of  the  notch  is  assumed  to  unload 
in  two  stages.  In  calculating  the  first  stage  from  the  point  B  to  the  point  C, 
the  elastic  part  of  the  unload  cycle,  use  is  made  of  the  Neuber  factor,  K^, 
which  ie  given  for  a  circular  hole  by  the  formula: 


where 
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K^,  »  elastic  stress  concent  radon  factor 

a  *•  material  constant 

ti  =  radius  of  hole  or  notch 
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The  elastic  unload  stress  increment  is  given  by  the  expression: 


Acn  =»  - 
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with  a  corresponding  unload  strain  of:  -  ““g—  « 

To  determine  the  remaining  part  oi  the  unloading  cycle  at  the  notch  (to  point  D), 

it  is  assumed  that  the  material  follows  the  same  cyclic  stress-strain  curve  as 

during  initial  loading,  and  that  the  strain  at  the  notch  will  decrease  by  an 

e 

additional  amount:  ^  _  max  (,3'f) 


with  a  corresponding  stress  Increment, 
strain  curvt_ . 

The  strain  amplitude  at  the  notch  will  be: 


AfTg  ,  obtained  from  the  cyclic  stress- 
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The  minimum  stress  at  the  notch,  at  point  D,  is  given  by: 
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The  mean  stress  at  the  notch  will  be: 

^max  +  °Et;i  ii  (UO) 

°mean  *  2 

Subsequent  applications  of  the  same  load  cycle  are  assumed  to  follow  '.he  sane 
loop,  i.e.,  D,B,C,D  shown  In  Figure  55,  At  the  end  of  the  loading  cycle  (at 
point  D),  there  will  be  a  residual  compressive  stress  at  the  notch,  which  is 
equal  to  (Eq.  3?)*  This  residual  stress  may  have  a  significant, 

beneficial  effect  on  fatigue  under  spectrum  loading,  as  discussed  in  Section 

5.2.2. 


In  calculating  fatigue  damage,  use  is  made  of  constant  amplitude,  fully 

reversed  strain  cycling  data.  The  calculated  strain  amplitude  at  the  notch, 

e  ,  is  therefore  modified  by  the  use  of  a  Goodman  type  correction,  to 
fX 

obtain  an  equivalent  fully  reversed  strain  amplitude. 
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strain  amplitude; 


=  mean  stress  in  cycle  and  0^  =  stress  at  fracture  for  the  material 


equivalent  fully  reversed  strain  amplitude; 

m  -  -  —  CTf 

The  life  is  then  obtained  by  entering  the  strain-life  curve  for  the  material. 
Such  a  curve  for  aluminium  alloy,  70T5-T6,  is  shown  in  Figure  57  •  The  life 
of  the  element  is  then  determined  by  applying  Miner's  linear  damage  rule: 

£§=1  (US) 

5.2.2  Spectrum  Loading 


Th  .  t>r  predicting  'he  fatigue  life  01  a  Joint  objected  to  spectrum 

loading  is  basically  similar  to  that  used  for  predicting  constant  amplitude 
fatigue  life.  The  cyclic  strain  amplitude  corresponding  to  any  particular  load 
level  in  the  spectrum  is  determined  exactly  as  for  the  case  of  constant  amplitude 
loading,  independent  of  the  previous  load  levels  that  were  applied.  The  cyclic 
mean  stress  corresponding  to  any  given  load  level  is  also  independent  of  the 
previous  loading  history,  provided  that  the  previous  applied  loads  were  all 
equal  to  or  lover  than  the  subsequent  leads.  If,  however,  any  of  the  previous 
applied  loads  were  higher  than  the  subsequent  applied  load,  then  relatively 
large  residual  compression  stresses  remaining  from  the  previoug  higher  loads 
would  '■end  to  reduce  the  cyclic  mean  stress  in  the  subsequent  load  cycles .  The 
amount  of  this  reduction  is  directly  related  to  differences  in  residual  stress 
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levels, as  explained  in  Ref'  rence  23. 

In  general,  the  types  of  assumptions  made  in  the  empirical  fatigue  analysis 
procedures  described  above,  both  for  constant  amplitude  loading  and  for  spectrum 
loading,  vere  based  on  qualitative,  physical  reasoning.  The  specific  details, 
however,  were  determined  so  as  to  obtain  a  best  fit  with  available  fatigue 
test  data.  Further  discussion  is  given  in  Reference  23. 

5 • 3  Method  of  Fatigue  Analysis  for  Joints  with  Interference  Fits 

In  the  case  of  joints  with  neat  fit  pins  or  with  pins  having  positive 
clearance  the  fatigue  analysis  method  described  in  Section  5.2  gives  generally 
satisfactory  results.  One  of  the  principal  reasons  for  this  is  that  for  initial 
loading  into  the  plastic  range,  the  use  of  the  Stcrwell  formula  for  determining 
the  plastic  strains  and  stresses  at  the  edge  of  a  hole  with  a  known  elastic 
stress  concentration  factor,  will  give  sufficiently  accurate  results  in  such 
joints.  Subsequent  unloading  is  largely  elastic  and  can,  therefore,  also  be 
determined  with  good  accuracy. 

In  general,  the  Stowell  formula  applies  quite  wdll  to  cases  where  there 
is  no  initial  eelf-balarcing  system  of  stresses,  such  as  those  resulting  from 
the  use  of  a  pin  with  an  interference  fit  in  a  joint.  However,  for  joints 
with  interference  fit  pins  the  plastic  stresses  and  strains  that  result  from 
the  combined  effects  of  interference  fit  loads  and  applied  loads  cannot  he 
accurately  predicted  with  the  use  of  the  Stowell  formula,  especially  for  large 
interferences  which  cause  local  plasticity  ever,  before  any  external  load  is 
applied. 

Because  a  simple, reasonably  accurate  procedure  has  not  yet  been  developed 
for  approximating  the  plastic  stresses  and  strains  around  the  holes  in  a  joint 
with  interference  fit  pins,  a  much  simpler  version  of  the  fatigue  analysis 
procedure  described  in  Section  5*2  has  been  used  to  determine,  at  least 
qualitatively,  if  not  quantitatively,  the  effects  of  different  interference  fits 
on  the  fatigue  life  of  a  Joint.  This  simplified  procedure  makes  use  of  the 
elastic  strain  distributions  shown  in  Tables  9  through  22  ,  in  conjunction 
with  the  cyclic  stress-strain  and  Strain-life  curves  shown  in  Figures  56  and 
57.  This  procedure  can  be  illustrated  by  considering  the  elastic  stresses 
(Table  12)  at  0  ®  8l°  (Fig.  58)  for  a  point  on  the  hole  circumference  in  the 
aluminum  alloy  Joint  of  Fig.  68, 
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Assuming  an  elastic  modulus  of  E  »  10  x  10^  pel  for  simplicity,  1-he  elastic 
strain  amplitude  at  8  *  81°  when  cycling  from  no  load  to  an  8001  lb  load  is 
0.00375.  This  elastic  strain  amplitude  ia  then  modified  to  account  for  mean 
stress  effect  by  the  use  of  the  Goodman  type  correction  uiscussed  in  Section 
5-2-1,  thereby  obtaining  the  equivalent  fully  reversed  strain  amplitude. 

The  value  of  <jb  is  Obtained  by  determining  the  average  of  stresses  correspond¬ 
ing  to  the  maximum  and  minimum  elastic  stress  in  the  cycle  free  the  cyclic 
stress-strain  curve  for  7075-T6  aluminum  alloy  (Fig.  56).  In  this  case,  the 
elastic  strains  are  0.01087  and  0. 01837,  the  correspondlne  ocier.ses  are  60  ksl 
and  71  ksi,  and  the  mean  stress  is  65*5  ksi.  The  resulting  value  of 
frcm  Equation  1*1  ,  is  C. 00935-  The  fatigue  life  at  6  =  8l°  obtained  by  enter¬ 
ing  the  fully-reversed  strain-life  curve  (Fig.  57)  with  this  value  of  et 
is  1200  cycles. 

It  should  be  emphasized  that  this  simplified  fatigue  analysis  procedure 
can  be  regarded  as  giving  only  qualitative  results,  tuid  ic  may  be  concluded 
that  Improved  methods  for  determining  plastic  stresses  and  strains  in  Joints 
with  interference  fits  are  needed  to  obtain  good  quantitative  results. 

As  will  be  discussed  later  in  Section  5.^,  interference  fits  result  in 
mon-lir.ear  variations  of  edge-of-hole  otressee  with  applied  load  (the  actual 
variation  approaches  a  bi-linear  variation).  Also,  the  initial  interference 
stresses  may  vary  considerably  around  the  hole  circumference,  depending  on 
tne  joint  geometry.  The  result  i«  that,  especially  under  spectrum  loading 
conditions,  it  may  be  necessary  to  examine  sei eral  locations  around  the  cir¬ 
cumference  to  determine  which  is  fatigue  critical. 

5.4  Discussion  of  Results 

5.4.1  Joints  with  Clearance  Fits 

Figure  59  shows  the  calculated  fatigue  life  for  clearance  fits  in  an 
aluminum  alloy  Joint  similar  to  that  shown  in  Fig.  68  with  a  3/4"  Dia,  fastener 
(See  also  Fig.  24).  The  fatigue  analysis  has  been  performed  for  a  typical 
n-aneuver  loading  spectrum,  to  a  zero  'g1  base,  using  the  method  described  in 
Section  5"3.  Four  conditions  of  fastener-hole  fit  are  considered,  i.e.  neat 
fit,  0.4%  dia  2.0%  dia  and  4,0%  dia.  The  curves  show  the  variation  of  service 
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life  with  limit  stress  level  in  the  spectrum.  "For  a  limit  stress  level  of  35  ksi 
(a  typical  design  stress  level  for  a  7075-T6  aluminum  alloy  wing),  results  in¬ 
dicate  that  fatigue  life  decreases  as  a  result  of  going  frcm  a  neat  fit  to  a 
clearance  fit.  Much  of  the  reduction  in  life  occurs  in  the  range  between  a 
neat  fit  and  a  clearance  equal  to  about  2#  of  the  pin  diameter  as  indicated  in 
Figure  60  where  service  life  is  plotted  against  #  clearance  for  a  constant 
limit  stress  level  Similai  indications  are  evident  in  the  constant  amplitude 
test  data  of  Reference  21. 

Figure  6l  shows  a  similar  calculation  for  a  6Al-6V-2Sn  titanium  alloy  joint 
(Figs.  i 79  and  39).  together  with  a  limited  quantity  of  test  data.  The  Joint 
represents  a  configuration  used  in  a  particular  design  investigation,  in  which 
a  number  of  specimens  were  tested  to  a  simplified  fighter  aircraft  maneuver 
spectrum,  ( sctnewhat  more  severe  than  that  used  for  obtaining  the  curves  in 
Figure  59  ).  Test  data  for  clearance  of  1.2#  and  2.4#  diameter  are  presented. 
Considerable  scatter  is  evident  in  the  test  results.  Fatigue  predictions  show 
a  significant  reduction  in  life  in  going  from  a  neat  fit  to  a  2.4#  dia 
clearance.  At  a  limit  stress  level  of  90ksi,  for  example,  the  calculated  life 
is  reduced  from  18700  hours  to  12000  hours.  The  reduction  is  less  than  that 
calculated  for  the  case  of  the  aluminum  alloy  joint  previously  discussed  (the 
curves  in  Figure  59  indicate  that  at  a  limit  stress  of  29  ksi,  the  life  of 
the  aluminum  joint  would  be  reduced  frcm  19000  hourB  for  a  neat  fit  condition 
to  33OO  hours  for  a  2.4#  clearance  condition),  but  this  is  mainly  due  to 
the  Joint  configuration,  as  reflected  in  tb*  stress  concentration  factors  shown 
in  Figures  33  and  40,  The  fatigue  predictions  for  the  titanium  joint 

show  good  general  correlation  with  test  data. 

5.4.2  Joints  with  Interference  Fits 

As  discussed  in  Section  5-3,  a  simplified  approach  has  been  used  in 
fatigue  predictions  for  the  interference  fit  c&sea.  The  aluminum  alloy  Joint 
discussed  in  Section  5.4.1  has  been  analyzed  for  constant. amplitude  cyclic 
loading.  The  neat  fit,  0.4#  and  2.0#  interferences  have  been  considered,  and 
the  results  sure  presented  in  Figure  62.  The  calculations  show  the  fatigue 
strength  at  a  point  on  the  hole  circumference  at  8l#  frcm  the  axis  of  applied 
load. 
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It  should  be  noted  that  the  curves  for  0.4$  interference  and  2.0$  inter¬ 
ference  show  Increased  fatigue  life  over  the  neat  fit  for  the  entire  range  of 
net  section  stresses  considered.  However,  a  ccraparison  of  the  degree  of  im¬ 
provement  in  fatigue  life  between  the  0.4$  and  2$  curves  indicates  that  larger 
increases  in  fatigue  life  are  obtained  with  cbe  smaller  interference  when  the 
applied  stresses  are  less  than  about  47ksi.  At  this  stress  level,  the  two 
curves  cross  at  a  life  of  about  3000  cycles.  Below  47  ksi  the  0.4$  interference 
joint  shows  seme what  longer  lives.  This  behavior  would  indicate  that  at 
any  given  stress  level  in  this  particular  joint,  there  may  be  a  limiting 
degree  of  interference,  beyond  which  fatigue  life  would  decrease  with  increased 
interference . 

In  order  to  further  examine  this  result.  Figures  63  and  64  have  been 
plotted.  Figure  63  shows  the  variation  of  elastic  strain  at  the  edge  of  the 
hole  with  the  applied  net  section  stress,  for  two  points  on  the  hole  circum¬ 
ference,  at  45°  and  99°  to  the  axis  of  applied  load.  Curves  are  plotted  for 
the  0.4$  D  and  2.0$  D  interference  conditions.  These  plots  are  obtained 
directly  from  the  data  given  in  Tables  9  through  12.  Figure  64  shows 
edge  elastic  strain  variation  with  nominal  stress  at  the  edge  of  a  hole  at  a 
point  that  is  8l°  from  the  applied  load  axis.  This  location  was  the  one  con¬ 
sidered  in  calculating  the  constant  amplitude  fatigue  curves  shown  on 
Figure  62. 

An  indication  of  the  effects  of  interference  f  J  L  <"*.  the  elastic  behavior 
at  the  edge  of  the  hole  is  obtained  from  an  examination  of  the  curves  in  Figs. 
63  and  64.  It  can  be  seen  from  these  figures  that,  for  each  value  of  9, 
the  initial  slope  of  the  curves  (a  measure  of  the  rate  of  change  in  the  elas¬ 
tic  strain  at  the  hole  with  change  in  the  elastic  stress  on  the  net 
section)  is  the  same  for  the  2$  D  interference  case  as  for  the  0.4$  D  inter¬ 
ference  case.  However,  as  the  applied  stress  is  increased,  the  initial 
interference  condition  is  eventually  overcome  and  the  slope  of  the  curves 
approaches  the  slope  that  would  be  obtained  in  a  neat  fit  (0$  interference) 
case.  The  applied  stress  level  at  which  the  initial  interference  is  overcome 
Increases  with  increasing  interference.  The  significance  of  this  behavior. 
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as  it  affects  f  atigue  life,  may  be  better  understood  by  exon: i’ll  ng  iu  detail 
Gome  oi  the  calculations  that  were  mode  in  obtaining  the  constant  amplitude 
latigur  curves  lu  Fig.  62. 

Consider,  for  example,  the  classic  Btrain  raugeB  at  the  edge  of  the  hole 
for  2. Of  and  0,4f  interference  vhen  toe  net  section  stress  Vuj-ico  from  0  to  1+7 
Fsi  (the  cross  over  point,  for  thc~c  two  interferences  on  the  constant  amplitude 
fatigue  curves  in  Fig.  62).  Hie  elastic  strain  ranges  at  the  edge  or  the  hole 
at  9  *  81° ,  obtained  directly  from  Tables  9  through  12,  are  1  9  follows: 

Interference  C  , 

_ *  ria.  elr 

0.0  O.Olb 

O.b  0.009b 

2.0  0.0062b 

As  would  bo  expected,  the  ctrain  range  at  the  edge  of  the  hole  in  the 
Joint  decreases  with  increasing  interference.  However,  "s  discussed  in 
Section  5-2  the  fatigue  life  of  either  Joint  depends  not  only  on  the  strain 
range  but  also  on  the  meat  stress.  Therefore,  vhen  the  values  of  s  .  are 

corrected  for  mean  stress  effects  using  E^u-Hon  bl  (which  can  be  applied  to 
strain  range  or  strain  amplitude),  the  resulting  "equivalent"  fully  reversed 
cyclic  strain  ranges  are: 


xEiuSi'lCrCHCC 

.  t  n 

£el 
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0.0 

o.ceoo 

0.1* 

O.OlSbU 

2.0 

0.01558 

Because  the  "equivalent"  strain  ranges  for  the  two  interference  fits  are 
essentially  equal,  the  correspond ing  fatigue  lives,  (obtained  by  entering 
the  strain-life  curve  in  Fig.  57  with  the  strain  amplitude  /g) 


are  also  e^ual,  anu  are  approximately  three  times  the  life  of  the  neat  fit 
Joint. 
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At  net  section  applied  stresses  greater  than  47  ksi,  the  "equivalent" 
fully  reversed  strain  ranges  are  lover  for  the  2.0$  D  interference  than  for 
the  0.4$  D,  resulting  in  longer  fatigue  lives  for  the  larger  interference a  For 
example,  at  a  net  section  applied  stress  of  55  ksi,  the  0.4$  D  interference 
strain  range  is  0.01205,  while  the  2.0$  D  interference  strain  range  is  0.0073- 
The  corresponding  "equivalent"  strain  ranges,  when  the  effect  of  mean  stress 
has  been  accounted  for,  are  0.C203  ar.d  0.0184  resulting  in  a  longer  fatigue  life 
for  the  2.0$  D  interference  case  (Fig.  62;.  The  strain  range  for  the  neat  fit 
Joint,  at  the  same  applied  stress  level  is  0.0164,  but  when  the  mean  stress 
correction  is  applied,  the  "equivalent"  fully  reversed  strain  range  becomes 
0.0242  and  the  corresponding  fatigue  life  is  lower  than  for  either  of  the 
interference  fit  cases. 

At  lower  values  of  applied  stress,  30  ksi  for  example,  both  the  0.4$  D  and 
2.0$  D  interferences  show  improvement  in  fatigue  life.  However,  the  consid¬ 
erably  larger  mean  stress  correction  for  the  2$  interference  case  predominates 
so  that  the  improvement  in  it's  fatigue  life  is  consequently  less  than  that 
shown  by  the  0.4$  D  interference  case. 

From  an  examination  of  the  curves  in  Fig.  64  and  the  above  calculations 
it  becomes  obvious  that  when  a  load  is  applied  to  a  Joint,  the  resulting 
increase  in  stress  and  strain  at  the  edge  of  the  hole  is  smaller  in  the  case  of 
an  interference  fit  than  in  the  case  of  a  neat  fit.  This  tends  to  increase  the 
fatigue  life  of  Joints  with  interference  fits.  However,  when  the  interference 
fit  becomes  large,  the  mean  tensile  stress  at  any  point  on  the  hole  periphery 
also  becomes  large,  and  this  tends  to  decrease  the  fatigue  life.  There  would, 
therefore,  appear  to  be  optimum  amounts  of  interference  for  different  applied 
stress  levels.  This  appears  to  be  partly  born  out  by  the  test  data  shown 
in  Fig.  7  of  Ref.  27,  which  showed  that  the  constant  amplitude  fatigue  life 
of  a  small  lug  with  a  taper  pin  increased  with  increasing  pin  interference  up 
to  a  certain  point,  and  then  showed  a  significant  reduction  at  higher  inter¬ 
ferences. 


5. 5  Conclusions 

1.  The  fatigue  life  of  a  discretely  fastened  joint  is  reduced  if  there  is 
a  loose  fit  between  fasteners  and  holes.  This  reduction  increases  significantly 
up  to  a  point  where  the  clearance  is  between  1$  and  2f  of  the  fastener  diameter, 
after  which  the  rate  of  reduction  in  fatigue  life  becomes  noticeably  less. 

Limited  test  data  ••  jnu  to  substantiate  this. 

2.  Increases  in  local  stress  due  to  clearance,  and  resulting  reduction  in 
fatigue  life  may  vary  significantly  with  Joint  geometry.  A.  well  designed  Joint 
with  standard  proportions  could  be  less  affected  than  one  with  undesirable 
geometrical  characteristics,  such  as  extremely  short  edge  distance. 

3.  Variations  in  fit  between  different  fasteners  in  the  same  group  will 
affect  fatigue  life.  The  analysis  presented  in  thi6  report  can  account  for  such 
variations  in  fit  where  these  are  known. 

4  .  The  degree  to  which  Interference  fits  between  fastener  and  hole  will 
affect  the  fatigue  life  of  a  joint  is  a  function  of  the  amount  of  interference, 
the  Joint  geometry  and  the  applied  stress  levels  in  the  fatigue  loading  cycle. 

In  general,  interference  fits  will  inpioVe  fatigue  life,  but  the  improvement  is 
related  to  the  joint  geometric  parameters  mentioned  above,  and  there  would  appear 
to  ce  optimum  amounts  of  Interference  for  different  applied  stress  levels,  (as 
discussed  in  Section  5.3)-  It  is  possible  tnat  excessive  interference  may 
be  detremental  to  fatigue  life. 

5.  The  trends  shown  by  the  fatigue  analysis  in  general  are  of  considerable 
interest.  The  availability  of  the  very  detailed  elastic  stress  data  generated 
in  this  report,  if  utilized  to  the  fullest  extern,  offers  an  attractive  prospect 
of  extensive  parametric  study.  Extension  of  the  present  work  to  include 
plasticity  effects  would  result  in  a  greatly  increased  capacity  for  the  analyti¬ 
cal  prediction  of  Joint  fatigue  life. 

6 .  Existing  methods  of  fatigue  analysis  arc  not  fully  adequate  for  the 
condition  of  interference  fit.  However,  a  more  accurate  knowledge  of  the 
stress-strain  behavior  at  the  edge  of  a  notch  would  undoubtedly  permit  a 
better  fatigue  analysis  to  be  made. 


CHAJPTdF.  6  .  FASTEHEB-SHES?  IDAP-DEFLECTIOK  DATA 


6. 1  Introduction 

Of  considerable  importance  to  the  analysis  of  multi-f ascener  joints  is  the 
determination  of  *he  "spring  constants"  or  the  slopes  to  the  load-dellectioa 
curve  of  the  individual  fasteners  in  combination  with  the  local  6n-et.  This 
has  been  pointed  oat  by  previous  investigatorc  (fiefs.  1,  2  and  28)  who  have 
treated  the  Joint  as  a  set  of  springs  and  attempted  to  determine  experimentally 
the  particular  spring  constants  needed  in  their  analyses.  In  Ref.  2  the 
fastener  experimental  load -deflection  curve  was  approximated  by  a  "Ramberg- 
Osgood"  type  expression  and  in  Refs.  1  end  28  an  incremental  piecewise  linear 
approximation  to  the  curve  was  used  in  the  analysis. 

The  lech  of  a  tabulated  set  of  data  for  a  variety  of  fastener-sheet 
combinations  was  considered  a  major  shortcoming  in  the  analysis  of  load  distri¬ 
bution  in  multi-fastener  Joints  of  any  type.  In  this  chapter  a  method  for 
approximating  the  load-deflection  curve  of  individual  fasteners  is  presented. 
Comparisons  using  this  approximation  show  good  correlation  with  experimental 
data.  Tabulations  of  several  hundred  load -deflection  curves  found  ir.  the 
literature  and  covering  a  large  variety  of  fastener  types  and  plate  combinations 
are  also  presented, 

6.2  Parametric  Representation  of  Fastener-Sheet  Load-Deflection  Curves 

A  typical  load-deflection  curve  is  shown  in  Fig.  65  .  The  initial  portion 
of  the  curve  denoted  by  the  letters  OA  is  usually  linear  and  rises  to  only  a 
small  percentage  of  the  total  load  carrying  capacity  of  the  fastener.  For 
fasteners  with  snail  tolerances  and  a  email  clamping  action,  the  portion  of  the 
curve  OA  represents  the  frictional  effects  in  the  Joint.  This  aspect  has  been 
studied  experimentally  and  comparisons  of  its  effect  on  the  load -deflation 
curve  are  presented  in  Chapter  7.  The  portion  of  the  curve  denoted  by  AB 
represents  the  effect  of  initial  clea'anee  or  "slop", 

A  modification  to  the  initial  portion  of  the  generally  complex  curve  (Fig.  65) 
is  proposed  in  order  to  simplify  the  application  of  load-deflection  data  to  load 
distribution  analyses. 
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This  modification  consists  ex'  extending  the  linear  portion  of  the  curve  to  cut 
the  6  axis  at  zero  load  as  shown  in  Fig.  65  at  point  O'.  The  offset  is  des¬ 
ignated  $o  and  depending  on  the  nature  of  the  curve  can  be  positive  or  negative. 
An  expression  for  the  displacement  at  any  load  level  car.  be  obtained  after  the 
modification  to  tue  curve  has  been  ue.de.  Writing  the  total  displacement  across 
the  fastener,  6,  an  a  combination  of  an  elastic  and  a  plactic  part  we  have: 


and  A  and  l  are  constants. 


The  quantities  ke,  and  are  defined  in  Fig.  65  .  The  value  of  kg  is  easily 
obtained  from  an  automatic  load-deflection  trace.  3y  chooBing  appropriate  off¬ 
sets  6^  and  J,.  from  the  initial  corrected  linear  part  of  the  curve  we  define 

the  corresponding  values  of  P.,  and  P  .  The  two  constants  A  and  5  in  Eq.  4 3 

J 

can  then  bo  determined  from  the  following  expression-: 


A  = 


-6 


e 


O 


and 


B  = 


(46) 


(47) 
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The  main  difference  between  the  nkjthod  proposed  here  and  the  "Ramberg-Oogood" 

type  curve  proposed  in  Ref.  2  is  the  method  of  obtaining  the  values  and  P^ 

at  the  "Knee"  of  the  curve.  Gehring  and  Maioes  (Ref.  2)  recommend  to  be 

chosen  at  a  secant  modulus  of  0.7  kg  to  be  consistent  with  the  yield  defined  by 

Ramberg  -  Osgood  (Ref.  2 <?)  and  the  point  P  io  selected  "as  far  out  on  the 

J 

curve  as  practicable".  It  appears  preferable  and  much  easier  construct ion  - 
wiae  to  use  direct  offsets  parallel  to  the  linear  slope  of  the  modified  curve 
at  finite  displacements  as  shown  in  Fig.  65  to  accomplish  the  Bame  thing. 
Because  we  are  more  interested  in  the  region  near  the  knee  of  the  curve  (moder¬ 
ate  plasticity)  nather  than  at  failure  (large  plasticity)  this  appeared  to  be  a 
good  technique. 

6.3  Evaluation  of  the  Accuracy  of  the  Proposed  Parametric  Load-Deflection 

Curve 

Before  the  proposed  method  of  parametric  representation  of  load-deflection 
curves  was  applied  to  existing  experimental  data,  a a  evaluation  of  its  accuracy 
was  made.  Fig.  66  shows  in  solid  line  an  experimentally  obtained  automatic 
load-def lection  curve  of  a  single  Hi-Lok  fastener  in  double  shear.  Using  the 
method  described  in  Section  7*2  two  parametric  approximations  to  the  curve  were 
obtained  using  two  different  sets  of  offset  points.  In  the  first  curve  (des¬ 
ignated  by  crosses)  offsets  at  0.002  and  0.005  Inches  were  used.  The  second 
curve  (circles)wae  obtained  using  offsets  at  0.00b  and  0.012  inches.  It  appears 
from  the  comparison  shown  in  Fig.  66  that  both  parametric  approximations  are 
good  representations  of  the  experimental  curve  over  the  useful  range.  However, 
as  would  be  expected,  the  second  approximation  shows  better  correlation  to  the 
experimental  curve  in  the  inelastic  range. 

Another  comparison  is  shown  in  Fig.  67  which  correlates  three  different 
parametric  curves  to  the  original  experimental  curve.  It  is  seen  from  the 
equations  of  the  three  curves  that  as  the  constant  B  increases  from  5.65  to 
9.76  the  knee  of  the  curves  becomes  Gharper  and  the  parametric  curve  deviates 
from  the  test  curve.  The  two  curves  with  the  lower  values  of  B  appear  better 
approximations  to  the  particular  experimental  curve.  It  is  suggested  that  in 
tabulating  data  by  the  parametric  procedure  an  attempt  be  made  to  see  which 
offsets  give  a  better  correlation  for  each  group  of  fasteners  analyzed.  In 
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the  results  given  in  Appendix  K  this  procedure  vas  followed. 

6.4  Suiaaary  of  Existing  Load-Deflection  lata 

A  tabulation  of  several  hundred  load-deflection  curves  are  presented  in 
Appc  '  v  E.  Hita  published  in  Refs.  1  and  30  are  presented  as  veil  as 
Grumrasn  unpublished  test  data  (Ref.  31  )•  Gee  of  new  commercially  available 
fastening  systems,  so  widespread  in  the  aircraft  industry  at  the  present  time, 
necessitates  a  large  accumulation  of  such  data  bs  those  presented  in  Appendix 
•K.  However,  due  to  the  unava liability  of  test  results  in  the  open  literature, 
the  scope  of  the  tabulation  shown  is  somewhat  limited.  It  is  hoped  that  future 
tabulations  and  additions  of  this  type  can  be  wide  available  to  other  interested 
users  in  the  near  future. 

The  format  used  in  presenting  the  data  of  Appendix  K  is  show  on 
pg.  255  together  with  the  definition  of  the  various  symbols.  The  table 
gives  the  following:  information  concerning  the  plates  making  up  the  Joint 
(Cols.  1  to  7);  information  concerning  the  fastener  data  (Cols.  8  to  13 ); 
measured  interference  or  clearance  (Cols.  14  to  16);  the  computed  load- 
deflection  parameters  (Cols.  1?  to  22)  and  test  informition  and  identifi¬ 
cation  vCols.  23  to  28).  Pages  25 5  and  256  summarize  the  data  presented 
by  Me  Combs  ft 5  al.  (Ref.  l)  for  single  and  doable  shear  single  fasoener 
Joints.  On  page  257  is  given  a  summary  of  the  single  fastener  double 
ehea.  r  tcctc  ol*  the  present  study.  Page®  256  to  26b  summarize  the  results 
of  Grumman  data  obtained  in  a  Corporate  titanium  study  (Ref.  31),  The 
code  used  in  describing  each  test  is  shown  in  Cols.  27  and  28  and  on  top 
of  page  258. 
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CHAPTER  7  EXPERIMENTAL  PROGRAM 


7*1  Introduction 

The  main  purpose  of  the  experimental  program  was  the  verification  of  the 
analytical  methods  described  in  Chapters  2  to  5*  In  addition,  the  experimental 
results  pointed  out  the  relative  importance  of  some  of  the  parameters  which 
influence  the  structural  behavior  of  mechanically  fastened  Joints.  Two  types 
oi  teste  are  described:  static  strength  end  fatigue.  The  static  strength  teste 
were  performed  on  single  fastener  and  multi-fastener  Joints  and  the  fatigue 
teBts  were  performed  on  multi -fastener  Joints.  Some  cf  the  results  presented 
herein  were  obtained  under  other  Gruumen  Independent  Research  and  Development 
programs  and  wc.~e  uot  part  of  the  present  contract.  However,  the  results  are 
pertinent  to  the  i  eoent  analytical  study  and  are  presented  for  illustrative 
purposes . 

7-2  Static  Strength  Tests 

7.2.1  Single  Fastener  Load  Deflection  Curves 
(l)  Description  of  the  Teats 

The  configuration  for  the  double  shear  test  specimen  chosen  is 
shown  in  Fig.  68  .  A  view  of  the  test  set  up  prior  to  testing  is  shown  in  Fig. 

69  .  Note  the  extensometer  device  used  for  obtaining  the  automatic  trace  of  the 
load-deflection  curve  across  the  Joint.  Tsbie  13  gives  &  summery  or  the  15 
static  strength  tests  which  were  performed.  All  fasteners  h6d  a  nominal  diameter 
of  0.25  inches. 

The  method  of  testing  followed  closely  the  Grunansn  procedures 
used  in  obtaining  fastener  design  allowables  and  is  described  in  Ref.  32  .  The 
specimen  is  given  a  very  small  Initial  load  of  the  order  of  100  to  3°0  lbs. 
prior  to  start  of  test.  The  specimen  is  then  Loaded  slightly  beyond  the  begin¬ 
ning  of  its  inelastic  behavior  end  +hen  unloaded.  Reloading  of  the  specimen 
then  follows  and  a  second  unloading  is  made  at  e  deflection  of  approximately 
0.010  inches  greater  than  the  first.  These  two  unloading  cycles  are  chosen 
with  the  help  of  visual  observation  oi  the  continous  load-deflection  trace  and 
are  intended  to  bracket  the  0.012  inch  offset  point  which  is  used  to  obtain  the 
allowable  yield  load  of  the  fastener. 
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A  typical  failed  specimen  is  shown  in  Frg.  '(0  which  shows  the 
large  local  deformation  causing  ovalization  of  the  holes  and  the  excessive  bend¬ 
ing  deformations  in  the  broken  titanium  Hi-Lok  fastener 

( 2 )  Heaulte  and  Discuss  ion 

An  attempt  was  made  to  determine  the  influence  of  gaga  length 
on  the  load -deflection  curve  of  the  single  flush  Hi-Lok  fastener  Joint  show,  in  | 

Fig. 69.  Three"identical"speeimens  having  a  single  Hi-Lok  faetener  in  double 

shear  were  tested  by  the  procedure  described  above.  The  only  variable  in  these  ! 

three  specimens  was  the  length  over  which  the  deformations  across  the  fastener 

.  I 

were  recorded  by  the  extensometer.  Three  lengths  were  used  in  tne  study  2,  A  j 

and  6  inches.  The  results  are  shown  in  Fig.  71.  Although  no  definite  trend  ! 

is  indicated  the  results  do  point  to  the  fact  that  a  fair  amount  of  scatter  can  ! 

be  expected  in  the  load-deflect ica  characteristics  of  seemingly  identical  spec¬ 
imens  installed  under  normal  production  conditions. 

Tne  results  of  a  limited  study  of  the  effect  of  friction  coef¬ 
ficient  on  the  faying  surfaces  of  a  joint  are  shown  in  Figs.  72  to  7^.  Fig- 
72  shows  the  results  of  tests  on  joints  made  from  plates  as  received  with  no 
special  finish.  The  flush  Hi-Lok  installation  torque  is  of  the  order  of  65-80 
in. -lbs.  causing  a  small  bi-linear  effect  in  the  elastic  portion  of  the  load- 
deflection  curve  with  the  change  In  slope  occurring  at  an  applied  load  of 
approximately  500  lbs.  By  finishing  the  plates  with  a  standard  protective 
alodine  treatment  used  at  Grumman  the  point  at  which  the  bi-linear  effects 
occurs  is  shown  to  be  about  1000  lbs.  in  the  three  teats  shown  in  Fig.  73* 

This  Indicates  an  increase  in  the  friction  coefficient  over  the  natural  finish 
of  Fig.  12  since  the  same  Hi-Lok  f&stenerB  were  used  in  both  oases. 

By  Teflon  coating  the  faying  surfaces,  the  friction  coefficient 
is  reduced  to  practically  zero, hence  the  break  in  the  initial  portion  of  the 
bi-linear  curve  occurs  at  a  much  lower  load  (approximately  100  lbs.)  as  shown  in 
Fig.  ?e.  It  should  be  noted  however,  that  for  all  three  types  of  surface 
finish,  the  effect  of  a  relatively  small  clamp-up  (65-80  in. -lbs)  haa  a  very 
email  effect  on  the  over-all  load  deflection  characteristics  of  the  fastener. 

'The  results  of  three  tests  using  a  single  i"  interference  Hi-Lok- 
Hi-Tigue  fastener  in  double  shear  are  shown  in  Fig.  75.  Comparing  these  results 
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with  the  tests  using  normal  flush  Kl-Iiok  fasteners  hav*^  a  small  clearance 
due  to  the  manufacturing  tolerances,  two  things  stand  out.  The  load-deflection 
curve  is  nonlinear  almost  from  the  start  of  loading  and  the  elastic  modulus 
measured  by  the  value  of  kg  is  also  much  higher. 

7 • 2 • 2  Multi-Fastener  Joints 

An  example  of  a  multi -fastener  joint  is  shown  in  Figure  76  .  The  con¬ 
figuration  is  representative  of  a  structural  element  fatigue  test  on  a  wing 
center  lint,  splice.  The  material  of  the  outer  plates  is  aluminum  alloy, 

7075-T6  clad  and  the  inner  plate  is  aluminum  alloy  2024-T3511.  The  fasteners 
are  dla.  Hl-Loks.  Three  conditions  of  fastener-hole  fit  were  tested,  neat 
fit,  0.002"  clearance  and  0.004"  clearance.  In  addition,  the  effects  of  clamp- 
up  as  applied  to  the  fasteners  due  to  installation  torque,  were  studied.  Tests 
were  conducted  with  the  fasteners  lightly  torqued  fcy  hand  as  against  the  normal 
installation  torque  used  in  manufacturing  assembly. 

The  static  behavior  of  the  joint  when  assembled  with  the  normal  clamp-up 
is  clearly  demonstrated  in  Fig.  77,  where  the  load -deflection  curve  for  the 
Joint  over  a  4  inch  gage  length  shows  a  marked  breaking  point.  The  joints  with 
clearance,  as  distract  from  the  neat  fit,  show  the  break  in  slope  more  clearly. 
In  all  three  cases,  the  break  occurs  at  a  significant  percentage  of  the  Joint 
ultimate  strength.  The  relative  effect  of  clamp-up  and  clearance  on  the  fatigue 
strength  of  the  Joint  is  illustrated  in  Fig.  73.  The  fatigue  life  tends  to 

decrease  as  clearance  is  increased,  for  the  specimens  without  clamp-up.  A  cou- 
eidei-abie  increase  in  fatigue  life  is  obtained  when  normal  fastener  clamp-up 
is  present . 

A  second  double  shear  Joint  specimen  is  shown  in  Fig.  79.  This  con¬ 
figuration  has  two  fasteners  on  a  line,  perpendicular  to  the  applied  load  line. 
The  material  is  titanium  alloy,  6A1-6V-2  Sn  annealed  sheet.  Joints  assembled 
with  1/4"  dia.  Taper-Lok  fasteners  were  tested  with  interference  fits  of  0.0018" 
and  0.00421'.  Joints  with  l/4"  Ki-Lck  fasteners  were  tested  with  cleai'ances  of 
0.003"  and  0.006".  A  typical  aircraft  manuever  load  spectrum  was  used  In  all  the 
tests. 

Test  results  are  presented  for  the  interference  fit  specimens  in  Fig. 

50.  The  data  show  substantial  increases  in  fatigue  life  for  the  C.0042"  in¬ 
terference  case  over  the  0.0015"  interferes  2  case.  Several  specimens  were 
tested  after  a  14  day  exposure  to  a  3-5‘f-  i!t  11  solution,  but  the  effect  on 


fatigue  did  not  appear  to  be  significant,  based  cn  very  limited  data. 

Test  results  for  the  clearance  fit  specimens  are  presented  in  Fig.  8l. 

The  data  show  considerable  scatter,  and  the  reeultB  for  the  0.003"  clearance  and 
the  0.006"  clearance  overlap  to  the  extent  that  a  separate  scatter  band  for  each 
condition  has  not  teen  defined.  These  test  results  are  also  discussed  briefly 
in  Section  4  of  Chapter  5,  where  fatigue  life  predictions  for  the  Joint  are 
presented. 
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Problem 

Humber 

Diameter 

D 

(in. ) 

Width 

W 

(in. ) 

Edge 

Distance 

e 

( In. ) 

Thick¬ 

ness 

t 

(in.) 

P2.1 

.25 

.9375 

.125 

7.5 

2.5 

P2.2 

.50 

.9375 

.125 

3.75 

1.25 

P2.3 

.75 

•  9375 

•  625 

•  125 

2.5 

.335 

P2„4 

.75 

.9375 

1.6 

.3 

2.5 

2.13 

Table  3  -  Summary  of  Geometric  Parameters  of  Aluminum  Plates  with 

Single  Rigid  Fastener 


x/t 

Flex.  Ream 
(Rigid  in  Shear) 
Eq.  (24) 

Shear  Beam 
(Rigid  In  Bending) 
Eq.  (25) 

Completely 
Rigid  Beam 
Eq.  (26) 

mm 

mastm 

4.032 

4.000 

1  1 

3.410 

3-400 

.2 

2.796 

2.800 

*3 

2.199 

2.190 

2.200 

.4 

1.599 

1.588 

1.600 

.5 

0.998 

0.990 

1.000 

.6 

0.399 

0.395 

0.400 

.7 

-0.201 

-0.700 

-0.200 

.8 

-0.800 

-0.795 

-0.800 

-1.399 

-1.392 

-1.40C 

-1.998 

-1.992 

-2.000 

Table  4  -  load  Interaction  Parameter  si  for  a  Fastener  with  Negligible  Head 

P0 

Stiffness  In  Single  Shear  (Ref.Flgure  51a)  (E  «■  30  x  lO^psi,  v  "0.3, 
k  -  7.68  x  to'3,  t  -  0.125  in,  d  •  0.25  in.) 
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Completely 
Rigid  Beam 

1  '  - 

Free  Sc  Clamped  Heads 
Shear  Beam 
(Rigid  in  Bending) 

Clamped  Head 
Bent  Beam 
[Rigid  in  Shear) 

Free  Head 

Bent  Beam 
(Rigid  in  Shear) 

inner 

1.000 

0.990 

0.995 

0.995 

plate 

.1 

0.991 

0.996 

0.996 

.2 

0.995 

0.997 

0.997 

.3 

1.001 

1.000 

1.000 

.u 

1.009 

1.005 

1.005 

.5 

1.000 

1.020 

1.010 

1.010 

outer 

.5 

1.000 

1.020 

1.009 

1.015 

plates 

.6 

1.009 

l.OOU 

1.009 

.7 

1.001 

1.000 

1.003 

.8 

0.995 

0.997 

0.997 

BS 

0.991 

0.995 

0.991 

2 

l.( 

XX) 

0.990 

0.995 

0.985 

qtx  q(2t2) 

■PA'RT.F  fs  —  Ty-se^  T«+  prpot  ^  OQ  Prt* AJT»^ t,€ r»  -rT"  p 

~ . -  -  Xq  r0 

for  a  Fastener  in  Double  Shear  (Reference  Fig.  52  ) 

(E  =  30  x  106pei,  v  =0.3,  =  7.68  x  lO^psi,  kg  *  7.68  x  lO^pei, 

tx  =0.125  in,  tg  -0.0625  in,  <3  =0.25  in.) 
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Type  Fit 

Plate  Stiffness 
(Refer  to  Fig.  38] 

k  x  10*’^(psi) 

Joint  Stiffness  k 
_ _ _ s 

ff  w 

Titanium 

Fastener 

Steel 

Fastener 

Rigid 

Fastener 

Loose 

^.255 

.1+16 

.512 

.535 

Seat 

5,330 

.610 

.635 

.670 

Interference 

6.966 

.778 

.816 

.876 

Table  7  -  Analytical  Results  for  the  Double  Lap  Joints  Tested 


Type  Fit 

Linearized  Joint  Stiffness  k  x  lcT^(^) 

crt  in 

Titanium  fastener 

Loose 

„k20  (avg.  of  12  tests) 

Interference 

.803  (avg.  of  3  tests) 

Table  8  -  Summary  of  Experimental  Results  Presented  in  Appendix  K 
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load. 

Level 

(lbs) 

Net  Section 
Applied  Stress 

(pel) 

Maximum  Tangential  Stress  at  Edge  of  Hole 
in  psi 

e  =  9° 

9  =  45° 

9  «  3i° 

6  -  99° 

2 

14.2 

25.62 

28.34 

42.60 

45-56 

500 

3555 

6404.9 

7092 

10,669 

11,390 

1000 

7111 

12,810 

14,185 

21,338 

22,781 

2000 

14,222 

25,620 

28,369 

42,676 

45,562 

4000 

28,444 

51,239 

56,739 

85,351 

91,123 

8000 

56,888 

102,479 

113.477 

170,702 

182 ,247 

9000 

63,999 

115,288 

127,662 

192,040 

205,027 

10000 

71,111 

128,098 

141,347 

213,378 

227,809 

Table  9  Elastic  Stresses  for  Neat  Fit  Case 


Load 

Level 

(lbs) 

— 

Net  Sect. 
Appl.  Str. 

(pal) 

Maximum  Tangential  ^Stress  at  Edge  of  Hole 

6  =  9° 

S  *  27° 

0  ■=  45° 

e  =  63° 

e  =  81° 

0  “  99° 

14.232 

50,615 

36,062 

28,281 

23,732 

21,764 

22,330 

3,555 

49,842 

39,l4o 

32,934 

28,759 

26,433 

25,973 

1000 

7,111 

29,066 

42,231 

37,606 

33,807 

31,121 

29,631 

2000 

14,222 

48,993 

47,791 

45,456 

9  lop 

-rs  S 

pOjVpO 

*>e  OaA 

OP  . 

4000 

28,444 

68,526 

67,655 

66,120 

64,410 

64,831 

73,709 

8000 

56,888 

119,532 

120,634 

122,547 

127,133 

149,354 

164,939 

9000 

63,999 

132,342 

133,946 

136,731 

142,912 

170,692 

187,720 

10000 

71,111 

145,152 

147,257 

150,916 

158,690 

192,030 

210,500 

Table  10  Elastic  Stresses  for  the  Case  of  AD/D  =  0.4$  Interference 
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Load 

Level 

(lbs) 

Net  Section 
Applied  Stress 

(psi) 

Maximum  Tangential  Stress  at  Edge  of  Hole 
_ In  nal _ 

9  =  9° 

0  «=  45° 

e  =  81° 

e  -  99° 

2 

14.2 

253,087 

141,330 

108, 744 

111,593 

500 

3555 

252,315 

145,984 

113,413 

115,236 

1000 

Till 

251,538 

150,656 

118,101 

118,893 

2000 

14,222 

249,986 

159,999 

127,477 

126,209 

1*000 

28,444 

246,882 

178,686 

146,229 

140,839 

8000 

56,888 

240,673 

216,059 

183,733 

170,100 

9000 

63,999 

240,752 

223,206 

190,762 

10000 

71,111 

244,064 

£27,282 

194,780 

Table  11  Elastic  Stresses  for  the  Case 
of  AD/D  *  2,0%  Interference 


Load 

Level 

(lbs) 

Net  Section 
Applied  Stress 

(p3i) 

Maximum  Tangential  £ 
in  naJ 

iti'ess  at  Edge  of  Hole 

9  =  9° 

O  =  45° 

e  -  81° 

0  =  99° 

2 

14.2 

506,178 

282,64-4 

217,469 

223,172 

500 

3555 

505,404 

287,296 

222,138 

226,815 

1000 

7111 

504,629 

291,968 

226,827 

230,472 

2000 

14,222 

503.077 

301,312 

237,7o7 

40 00 

28,444 

499,972 

319,99.8 

254,954 

252,418 

8000 

56,888 

493,764 

357,371 

292,458 

281,675 

9000 

63,999 

492,211 

366,715 

301,835 

288,994 

10000 

71,111 

490,659 

376,058 

311; 210 

296,309 

Table  12  Elastic  Stresses  for  the  Case 
of  AD/D  =  k^o  Interference 
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Single  Fastener 


Protisn  No.  P  1.1  Problem  No.  P  1.3  Problem  No.  P  1.6 


Fig.  5  Idealisations  of  Two  Hole  Plates  in  202h-Th  Aluminum  with  S/W 


Problem  No.  P  1.2  Problem  No.  P  l.U  Problem  No.  P  1. 


x 


t 


Fig.  6  Idealizations  of  Two  Hole  Plates  in  202U-TU  Aluminum  with  S/W 


-2 

Stiffness  -  y  -  kips  x  10  /in. 

(b)  Losd  vs.  Tangent  Modulus 

Variation  in  Stiffness  or  Slope  of  the  Load-Deflection  Curve  with 
Increasing  Load. 


Effective  Width  ae  Function  of  the  Pitch  to  Diameter  Ratio 


Fig.  14  Idealized  Model  for  Evaluation  of  Effects  of  Width  T 
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Idealization  of  Tapered  Plate  vith  Taper  of  1:4  and  D  =  0.25  in. 
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Fig.  16  Idealization  of  Capered  Plate  vit'n  Taper  of  1:4  and  D  =  0.125 
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Section  Stress,  ksi 


1  :~J 

1  Distance  from  Plate  Center  Line,  inches!  • 

!  I-1 

1  . 

1  ' 

(b)  Stress  Distribution  at  Section  B-B - 

1  ■: 

■;  ■ 

1.... 

Fig.  19 

-  f  •  ■ 

Variation  of  Longitudinal  Stress,  a  ,  Across  the  Net  Sections  ■ 

1  1 

of  Plate  No.  P  3.1A 

:  1  ;  :  '  *  88 

!  1  *  _ 
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j  .  j 
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...i. .. 

Variation  of  Stress  Concentration  Factors  with  Load  for 


Load-Deflectios  Curves  for  Tapered  Plates 


M  ♦  M» 


il  I  III  t  H 


Fig.  22  Progression  of  Held  Zones  with  Increasing  Applied  Load,  Plate  P  3-3B 
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Fig.  2k  Finite  Element  Idealizations  of  Alusiimm  Joints  With  e  =  0.625  Inches 
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Problem  No.  P  2. 4 


□  □□□ 


X 


Fig.  25  Finite  Element  Idealization  of  Aluminum  Joint  With  e  ■  1.6  Inches 

94 


Fig.  27  Dosa  Distribution  Around  Fastener  at  2000  lb  Applied 


1 — * - : - f-  Rad  ial  Eietauce  f/ctt  .Ctpter  of  Hole,  X,  Indies  — j 4-~ 

;  ■  ;  I  •:  i  ••  I.....!..  . L  .;•]  .i.  .!  ., . 

31  MajclBu.  Tangential  Streee  Variation  fox  Tim  rent  Interference  Fit  a 


Variation  of  Stress  Concentration  Factor  With  Increasing  Kst  Section  Stress  For  Problem  P  2.2 


Interference 


,tion  of  Modified  S trees  Concentration  Factor  With  Applied  Het  Section  Stress 
■  Interference 


Variation  of  teximm  Modified  StresB  Concentration  Factor  with  Increasing  Applied 
Net  Section  Stress  for  Interference  Fit  Fasteners. 


Computed  .load-Deflectlon  Curves 


3?l  "J  3Ci  C) 


Fig.  lt-3  Circumferential  Stress  vg  Compressive  Radial  Stress  et  the  Hole  Boundary  (202U-T351  Al.  Pit 
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Fig.  U5  Circumferential  Stress  Distribution,  c  ,  Acre  Aluminum  Plnte  For  Ivo  Types  of  Unloading 


cumferential  Strens 


TJ-6A1-6V-2  ;>n  Annealed 
A-286  Steel  Rivet 


(a)  i’oiceo  and  Mounts 


Fig.  50  Equilibrium,  and  Deformation  of  a  Typical  Beam  Element 


Figure  52  Fastener  in  Symmetrical  Double  Shear  with  Idealisation  and  Typical  Solution 
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Stress  -  Strain  Curves  -  7075-^6  Aluminum  Alloy 


Spectrum  Fatigue  Life  Predictions  For  Aluminum  Alloy  Joint 


Notes:  Material:  Alum  Alloy  7075 -T6 
StreBB  et  Limit  Load  =  35  Itsl 


Fig.  60  Effect  of  Hole  Clearance  on  Spectrum  Fatigue  Lif< 


ourpariBon  of  Spectmm  Fatigue  Life  Predictions  With  Test  Results  For  Titaniuo 


Fig.  62  Constant  Amplitude  Fatigue  Life  Predictions  for  Aluminum  Alloy  Joint 


P/2 

P/2 


Fig.  67  Comparison  of  Three  Parametric  Curves  With  Experimentally- 
Determined  Load-Deflection  Curve 
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Specimen 


Failure  Loads  9,930  lb.  10,21+0  lb 


Effect  of  Gage  length  (G.L. )  on  the  Load -Deflection  Curve  of  a  Single  Fastener  Joint. 


Failure  Loads  10,l4o  lbs.  9>  flO  Lbs 


Curves 


Failure  Loads 


Fig.  75  Load-Deflection  Curves  of  Single  Ri-Lok-Hi-Tigue  Fastener  in  Double  Shear 
in  7075 -T6  Aluminum  PLates  with  no  Surface  Treatnent 


ifiy  Clamp -up  ai 


No.  1 

.009 

.004 

.006 

.008 

.010 

.  Qio 

No. 3 

0 

.009 

.001* 

.006 

.008 

.010 

No. 5 

0 

.002 

.004 

.006 

.008 

Joint  Deflection  In  4  inch  Gage  Length. 

Fig.  77  Effect  of  Clamp  up  on  the  Static  Load -Deflection  Curves  of  Joint 

vith  Four  Hi-LoX  Fasteners  and  Three  Different  Amounts  of  Clearance 

11*6 


Fatigue 


'Oil 


Fig.  80  Spectrum  Fatigue  Test  Results  of  1 fhn  Dia.  Taper-Loks  in 
Ti-6Al-6V-2Sn  Annealed  Sheet 


Spectrum 

Level  %  Limit  Applications 
per  100  hrs 


Fig.  81  Spectrum  Fatigue  Test  Results  for  i/V 
in  Ti- 6M-6V-2Sn  Annealed  Sheets 


APPENDIX  A  INELASTIC  STRESS  AND  DEFLECTION  ANALYSIS  OF  PLANAR  STRUCTURES 


(A)  Program  Description 

This  io  a  brief  description  of  the  Grumnan  computer  program 
used  for  plastic  analysis  of  mechanically  fastened  Joints.  ThiB 
program.  iB  a  modified  version  of  deck  *<5128  originally  written 
to  do  elastic-plastic  ail  creep  analysis  of  isotropic  and  aniso¬ 
tropic  planar  structures.  (Reference  3/» 

The  program  was  originally  written  In  Fortran  II  for  the 
IBM  7O9U.  It  was  modified  and  expanded  to  run  on  the  IBM 
System/360  (Fortran  IV).  On  this  machine,  available  hardware 
facilities  permitted  expansion  to  sixty  plastic  "nodes,r*.  after 
allowance  was  made  for  setae  additional  features.  The  version 
submitted  to  AFFDL  to  operate  on  IBM  709*+  under  IBSYS  control 
( Fort r tin  IV)  is  restricted  in  8i2e  to  thirty  four  plastic  nodes, 
due  to  core  size  limitations.  Use  of  direct-access  storage 
(disk  or  drum)  for  the  two  large  data  matrices  permits  a  sub¬ 
stantial  increase  in  problem  size,  at  the  cost  of  a  factor  of 
approximately  ten  in  running  time.  This  has  been  done  on  the 
IBJV36O,  increasing  the  size  to  175  nodes  with  the  increase  in 
machine  time  as  described. 

The  program  induces  these  features.  Print  output  may  be 
obtained  at  each  cycle  of  calculation,  or  at  load  levels  which 
are  multiples  of  the  load  increments  used,  as  desired.  The 
stress-strain  relationship  may  be  defined  as  a  table  of  ten 
points  on  a  curve,  with  automatic  interpolation.  Alternatively, 
it  may  be  defined  by  the  Ramberg-Osgood  equation,  with  a  refer¬ 
ence  stress,  exponent  and  Young 'b  modulus  as  input.  The  program 
will  accept  d  ;creasing  steps  in  applied  load.  Unloading  follows 
Hooke's  law  when  the  node  has  been  stressed  in  the  inelastic 
region.  At  any  pre-determlned  load  level,  the  program  can  be 

*  The  tern  "node"  as  used  herein  refers  to  either  element  cen¬ 
troids  for  constant  strain  finite  elements  or  actual  nodal 
points  for  linearly  varying  strain  elements. 
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forced  to  spill  all  the  memory  tables  and  clues  into  a  binary 
save  tape,  then  exit.  This  permits  the  programmer  to  inspect 
his  results  and  decide  whether  to  continue  the  analysis  from 
that  point,  or  to  modify  or  abandon  the  job.  A  timing  feature 
is  built  in  the  eoding,  but  temporarily  patched  out  of  the 
AFFDL  version,  to  allow  this  save  tape  to  be  generated  upon 
reaching  a  time  estimate  supplied  with  the  data. 

Each  link  of  the  program  contains  the  non-IBM  subroutines 
needed  for  operation.  Siandard  input -output  subroutines  etc., 
will  be  taken  from  the  library  tape.  As  a  point  of  information, 
the  program  contains  a  main  program  and  four  overlays. 

(1)  LKONE  reads  the  first  control  card,  and  reads  all 
other  decimal  input  supplied. 

(2)  LKWO  is  used  only  on  a  restart  job.  It  reads  the 
modified  step  table,  if  provided,  and  the  binary  input 
tape. 

(3)  LKFOITR  is  the  processing  link.  It  does  all  the 
calculation,  print  control,  and  writing  of  print  output 
on  tape  6. 

(4)  LKFIVE  writes  a  binary  tape  for  restart. 

Sequencing  and  details  of  the  data  cards  follow.  The  sym¬ 
bols  used  in  the  program  for  various  items  of  input  data  are 
listed  on  page  153  and  are  shown  on  the  sample  key-punching 
sheets,  pages  160  and  l6l. 

The  data  cards  are  used  in  the  following  sequence,  immediate¬ 
ly  after  the  $PATA  card  required  by  IBSYS: 

(1)  General  clue  card  (FORMAT  1)  containing  KLU4,  KLU7, 

NA,  NPE,  GNU,  and  a  title  or  caption. 

(2)  Table  of  load  steps  desired.  Up  to  ten  cards  defining 
ten  steps  may  be  used.  The  maximum  level  for  each  load 
step  may  be  above  or  bel-w  the  previous  maximum  level 
of  load.  The  program  verifies  the  algebraic  sign  of 
the  increment,  and  corrects  it  if  necessary.  Each  card 


MmL. 


1 


contains  four  variables  TEMPI,  TEMTC,  TEMP3 ,  TEMF4  in 
FORMAT  2. 

(3)  Dafa  matrices.  These  may  be  provided  in  any  sequence. 
Each  matrix  has  a  header  card  in  FORMAT  3,  one  or  more 
data  cards  in  lORMAT  4,  and  a  blank  card  to  end  it. 

The  last  input  matrix  on  the  system  input  tape  must  be 
folloved  by  one  added  blank  card  (two  totai)  to  trip 
the  program  Into  operation. 

(B)  Symbols  and  Format  of  the  Data  Cards 
(1)  Genera.1  Clue  Card  -  FORMAT  1 


Cols . 
1 


Field 

II 


Symbol 

KLU4 


3-5 


NA 


6-3  13 


9-14  F6.3 


NDE 


GNU 


This  gives  the  number  of  input 
matrices  on  the  auxiliary  input  tape 
logical  #9.  If  all  matrices  are 
on  the  monitor  tape,  leave  this 
blank.  If  using  binary  restart  tape 
on  #8,  use  a  digit  from  5  to  9 
Maximum  number  of  decimal  input 
matrices  on  the  auxiliary  irput 
tape  is  4. 

0,  ui  blank,  prints  output  on  cycles 
indicated  by  the  step  table;  1 
prints  on  all  cycles. 

This  sets  the  frame  size  for  the 
problem  to  be  handled.  NA  is  three 
times  the  number  of  nodes.  Maximum 
value  is  102  (34  nodes). 

This  indicates  the  number  of  load 
conditions  for  deflection  calcula¬ 
tions. 

frisson's  ratio  "nu" 
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(B)  Symbols  and  Format  of  the  Data  Cards  -  (Continued) 
(l)  Oeneral  Clue  Card  -  FORMA!'  1  (Continued) 
Cols.  Field  Symbol 


15-80 

UA6 

TA 

Any  66  characters  of  alpha-numeric 
text  to  be  printed  as  a  heading  for 
identification  purposes. 

Table 

of  Steps 

(limited  to  ten  entries)  -  FORMAT  2 

Cels. 

Field 

1-6 

6X 

Rot  used. 

7-10 

a4 

LOAD  indicates  a  load  step,  TAPE 

indicates  write  memory  on  a  save- 
tape  on  logical  #11  then  exit. 

ESTM  indicates  a  time  estimate  in 
minutes  to  automatically  terminate 
run.  ESTM  does  not  count  as  one  of 
the  ten  load  steps. 

FINS  or  blank  indicates  end  of 
table  (this  may  be  the  11th  card 
in  the  table ). 

11-20  E10.6  Upper  limit  of  step  in  pounds  or 

estimated  time  in  minutes. 

21-30  E10.1  Interval  or  increment  for  calcula¬ 

tion. 

31-^0  E10.1  Interval  or  increment  for  print  out¬ 

put.  Prints  are  generated  on  tape 
6  for  the  current  cycle  when  the 
current  load  level  is  an  integral 
multiple  of  the  print  interval.  If 
the  print  interval  is  left  blank, 
no  prints  are  generated  for  cycles 
in  this  step.  If  print  interval  is 
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(B)  Symbols  and  Format  of  the  Data  Cards  -  (Continued) 

(2)  Table  of  3teps  (limited  to  ten  entries)  -  FORMAT  2  (Continued) 
Cols.  Field 

31-1+0  E10.1  very  small  compared  to  the  current 

level,  then  numeric  problems  some¬ 
times  occur  in  the  print  control 
subroutine  (QUTRTT),  and  it  may  be 
necessary  to  re-run  with  the  ervery- 
cycle  print  control  "1"  for  KHJ7 
punched  in  the  first  control  card. 


1+1-80 

Ignored. 

Data  Matrices  -  Header 

Caid  -  FORMAT  3 

Cols. 

Field 

1-6 

6X 

Not  used. 

7-10 

1+X 

Not  used.  We  use  the  letters  MTRX 

for  compatibility  with  the  GISMD 

Matrix  System,  which  reads  and 

writes  matrices  in  this  format. 

11 

IX 

Not  used. 

12-17 

A6 

This  is  the  identification  name 

for  the  input  matrices  and  must 
correspond  exactly  with  one  of  the 
following  names: 

bbbSIMj  (Matrix  of  stresses  for  applied  loads 
cr  SIMbbb j /maximum  size  102x1 

bbbSIj/  (Matrix  of  stresses  for  member  strains 
or  SUbbbj  /maximum  size  102x102 

bTOIGN  Table  of  stress  values  llxl  | 

bTEFSN  Table  of  strain  values  llxl  7 
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(B)  Symboie  and  Foi-mat  of  the  Data  Cards  -  (Continued) 

(3)  Data  Matrices  -  Header  Card  -  FORMAT  3  -  (Continued) 

Cols.  Field 

These  two  matrices  define 
the  stress-strain  curve  as 
a  series  of  chords.  The 
data  is  entered  in  this  for¬ 
mat,  merely  to  conform  to 
the  format  of  the  SIM-SIJ 
matrices  which  were  generated 
using  the  GIS1C  Matrix  System. 

Hote  that  the  first  value  in 
both  TSIGN  and  TEPSN  must  be 
zero  to  avoid  upsetting  the 
interpolation  procedure. 

bbbDIMM Matrix  of  deflection  for  applied  loads 
or  D IMbbb |  ( max imum  size  102x1 

bbbDU | (Matrix  of  deflection  for  unit  induced 
or  DUbbb)  (strains  -  maximum  Bize  102xlC2 

RAMOSC  three  parameters  for  Hamberg-06good 

equation  -  reference  stress,  exponent 

and  Young's  Dodulue. 


18 

IX 

Hot  used. 

19-21 

13 

Humber  of 

rows  in 

this  matrix. 

22-24 

13 

Nttaber  of 

columns 

in  this  matrix 

O 

•'v 

\ 

CVJ 

Hot  used. 
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(B)  Symbols  and  Format  of  the  Data  Cards  -  (Continued) 
(4)  Data  Matrices  -  Data  Cards  -  I0RMA.T  4 


Cols. 

Field 

1 

IX 

Not  used. 

2-4 

13 

Row  index  for  the  first  element. 

5-7 

13 

Column  index  for  the  first  element. 

8-23 

E16.8 

The  first  element  on  this  card. 

24 

IX 

Not  used. 

25-27 

-3 

Row  index  for  the  second  element. 

28-30 

13 

Column  index  for  the  second  ele¬ 
ment. 

31-46 

E16.8 

The  second  element  on  this  card. 

47 

IX 

Not  used. 

48-50 

13 

Row  index  for  the  third  element. 

51-53 

13 

Column  index  for  the  third  element. 

54-69 

E16.8 

The  third  element  cn  this  card. 

7C-8C 

Not  used. 

The  last  card  of  a  matrix  must  be  completely  blank  (tested 
in  Col.  2-4).  The  last  matrix  on  the  Monitor  input  tape  5  must 
be  followed  by  one  added  blank  card  (two  total)  to  trip  the 
program  into  operation. 

The  inpit  matrices  on  the  Monitor  tape  may  be  in  any  se¬ 
quence  as  long  as  each  matrix  start 3  with  a  header  card,  has 
all  its  data  cards  next,  and  ends  with  a  blank  card. 

(C)  Bamberg -Osgood  Equation 

If  a  run  encounters  the  name  RAM3SG  in  the  data  matrices, 
an  internal  clue  (KLU3)  is  set  and  the  run  will  use  the  three 
input  parameters  with  the  Romberg  -Osgood  equation  for  stres\- 
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(C)  Ramberg-Osgood  Equation  -  (Continued; 


strain  relationships.  Note  that  the  second  value  in  TSIGN 
(T3IGN(2))  must  be  provided  to  indicate  the  effective  stress  for 
start  of  plasticity.  Without  this  value,  plasticity  is  assumed 
to  start  at  zero  stress  level. 

(P)  Stress-Strain  Curve 

If  a  run  has  not  found  the  Ramberg -Osgood  parameters,  it 
will  calculate  Young's  Modulus  from  the  first  two  points  in 
Tables  TSIGN  and  TEFSH  (Table  of  SIGaa  sub  N  and  Table  of  EPSiloa 
sub  N).  TSIGN  (2)  is  also  uaed  to  define  the  start  of  plasticity. 

(E)  Restart  Procedure 

If  the  run  being  set  up  is  a  restart,  the  input  deck  can  be 
in  several  forms.  The  first  control  card  gust  have  a  digit  from 
5  to  9  in  KU.i4  so  that  the  program  will  read  tape  8;  KLU7  is  read 
from  this  card.  The  other  factors  are  carried  from  the  previous 
run. 

The  table  of  steps  may  be  read  in  again  (modified)  if  the 
previous  run  is  stopped  due  to  the  time  estimate,  or  it  may  be 
retained  and  continued  from  the  previous  run.  However,  if  the 
previous  run  is  stored  on  tape  by  using  a  TAPE  card  in  the  step 
table,  then  a  new  step  table  must  be  read  in. 

In  either  case,  the  last  data  card  on  a  restart  job  must 
be  FIRS  or  blank  in  columns  7-10.  This  means  a  restart  data 
deck  will  have  a  minimum  of  two  cards  (clue  card  and  a  blank), 
or  a  maximum  of  12  cards  (clue  card,  10  step  cards  and  a  FINS  or 
blank). 

(F)  Time  Estimates 

For  time  estimates,  allow  3,5  minutes  to  compile  the  For¬ 
tran,  1.5  minutes  to  read  the  input  tape,  2.0  seconds  per  cycle 
printed,  and  100  to  110  cycles  of  calculation  per  minute. 
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(G)  Special  Input  Formats  and  Options 

The  plastic  analysis  program  was  set  up  to  use  common  matrix  card 
formats  for  the  auxiliary  tape  as  veil  as  the  system  Input  tape,  due 
to  the  simplicity  of  the  logic  required  to  switch  between  the  units. 
Original  formats  were  those  used  in  the  GISMD  matrix  package.  The 
formats  used  on  the  auxiliary  tape  were  modified  (as  an  option  at  "compile 
time")  to  accept  formats  from  a  later  matrix  package  (COMAP  card 
images)  on  the  auxiliary  tape.  The  option  has  been  extended  to  include 
FORMAT  matrix  package  card  Images  on  the  auxiliary  tape  only,  still 
using  the  original  card  formats  on  the  system  Input  tape.  The  option 
is  selected  when  compiling  the  program.  It  is  not  set  by  clues  at 
execution  tin*;.  The  card  formats  are  illustrated  on  the  sample  key 
punch  sheets  pgs.  160  and  l6l. 

Internal  clue  NFC  is  set  to  0  to  use  the  original  card  formats 
(#3  and  #4)  for  the  auxiliary  tape  as  well  as  on  the  system 
input  tape.  If  NFC  =  4o,  the  program  will  expect  COMA?  card  formats 
(#43  and  #44)  only  on  the  auxiliary  tape.  If  NFC  =  42,  the  program 
will  expect  FORMAT  cards  (#45  and  #46)  only  on  the  auxiliary  tape. 

Note  that  all  these  cluee,  formats  and  modified  lists  are  provided  in 
the  program,  with  identifying  coBSDent  cards.  It  le  only  necessary  to 
reproduce  the  desired  card  for  NFC  dropping  out  the  C  from  column  1 
(and  adding  C  to  the  conflicting  card)  and  the  program  logic  will  be 
modified. 
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APPENDIX  B  INELASTIC  STRUCTURAL  ANALYSIS  PROGRAM  -  FLOW  CHARTS 


The  Main  Program  1b  Simply  an  Overlay  Caller.  The  Clue  (IEXIT)  to 
Direct  the  Main  Program  Is  Set  In  Each  Overlay,  as  Determined  by  the 
Data  and  the  Execution  of  the  Problem. 
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TESTS  TO  DETERMINE  IF  THE  CYCLE 
SHOULD  BE  PRINTED 


1. 


FIRST  CYCLE  OF  ANY  HEW  RUN 
(K  -  1) 


I 


FIRST  CYCLE  OF  ANY  CONTINUATION 
RUN  (KERRSW  -  2)  I 

KLU6  •  0  PRINTS  SELECTED  j 

CYCLES  ONLY  . 


Increnent 
Counter. 
KL02  -  1 
to  Bupprei 
Print  Out] 

the  Cycle 
Set 

SB 

put 

Perform  Checks  to 
See  If  this  Cycle 
Should  be  Printed 
(KLU2  ■  0  to  Print 
the  Cycle) 

Yea 
303. 

I* 

'It  Either' 
Lo*d,  or 
Tape, 

Yea  V  30^ 
Slat  J24-  aa  a  Clue 

1  -  Load  Step 

2  «  Not  Used 

3  -  Save  Tape 


p 

r  316 

Set  Print 
Control  on 
(KJZ*2  -  0) 

302 

Increment 
Row  in 

Table  By  1 

_ _ 1 

205  i 

L _ 

Job 

Pin! 

■STl 

1 66 


f  Write  Out  "N 
^Applied  Load J 


Yea 


• - ► 

251 

Save  Preceding 
Cycle  Values 

Tor  Effective 
Plastic  Strain 

Call  Subrout.  "Output" 
to  see  11'  this  Level  is 
a  Multiple  of  Print  In¬ 
ternal  and  Should  be 
Printed 


Reset  Print 
Control  from 
6ubrout.  "Output" 

1 - 


Compute  Node 
Stresses  and 
Defleotloiis 


EPBAJRF 


3I0UK 

UEFL 


Write  Out 
Deflections 

3f - - 


Compute 

Effective 

Stresses 


1 


30BAHN 


Compute  Effective 
Plastic  Strain 
using  Table,  or 
Ramberg  -  Osgood 
Equation  if  KHJ3-1 1 


Compute  Total 
Effective  Strain, 
Effective  Strain 
Changes 

I 


EPBAflN 


Tbpstn 

DELEPR 


Compute  Node 
Strain  Change, 
Node  Inelastic 
Strain 


DELEPK 

EPSUK 


167 


Write  Various 
Control  Clues 
and  Single- 
Valued  Variables 
on  Logical  Tape  11 
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•  *  V  •  I  T  Ji/  *  *  *  Wa  *  I  1  X  w  * 

TAPI  (SAV-I  P 


v :  pu 


•  UNC3  • 
UNI  TO 6 

S* 

2I3.1AP 

•  IJNA9. 
UNITC9 


ENT  AY 

PZC 

FILE 

TAPE  79 

TAPt-9 

ENTRY 

r*zr 

FILE 


.UNI a. 

UT'  I  T  v  S 

*  Lo3  *T.C’Ji\T  *  INPUT  *LLi%=I56*IIN 

IS  USED  FOr.  A  ECS  MATRIX  INPUT  TATI 

. UN39. 

UN  IT '9 

»  CKl*VOUAT»;.*P  JT  »  3l<=  14  *  SIC 


END 

$*  TAPE  11  IS  USED  FOR  A  d  I  MANY  CAVE  T  Ait  r'L.l 

SIIM’AP  TAPE  11 

ENTRY  • UNI 1  * 

•  Um'U..  PZE  UN  I  Til 

LNIT11  FILE  *  LSA*REALY tCL'TPUT ♦ELK*256»LIN 

END 


(  '  U/.ILI  APY 


V»Wi\T  I.'iw^T  iCU  R* 
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T 


,\%Vt 


Appwpnc  wm>irMCTP»jmmc»cBiiLa(m fboqban 


loROur 

v-PNCT 

SoRCuP 

OP.NOr 

<  * 

TAP 2  JS 

15  U5 

S  I  G’  ’.AP 

TAPL.8 

ENTRY 

•  UN  5  3 

.UNO 3. 

PZC 

UNIT. 

UN  I  TO 6 

FILE 

END 

»  Lo3 »! 

TAPE  09 

15  JS 

SI3.1AP 

TAPE-9 

ENTRY 

.  UN  09 

•  IJN"9« 

P?E 

UNIT"1 

UNIT 09 

FILE 

♦  5<1  ♦ 

wr\4CT*:i»uurc7-.Ji» * u>\ i t . a *  **o.*.iT5t»*  » *  ji> 1 1  iv * 

■' ifELrcT-;**!. •uni-'*:1  • * »u.;:tii • 


END 

$»  TAPE  11  15  USED  FOR  A  dlNAKY  1AVC  TA.  t_  :r'LR  GU.4T  I.'JUAT  ION 

SIRVAP  TAPC11 

ENTRY  .UNll. 

.U.Jll-  P2E  UNI  Til 

UN IT11  FILE  ♦L34*REALY*CL'TP'OT»BLKa256tLIN 

END 
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c  Grumman  aerospace  cohp.  deck  no.  asizs  main  program 
C  MATRIX  ANALYSIS  FOR  ISOTROPIC.  INELASTIC  STRUCTURES 

C  IN  THE  PLASTIC  REGIME  _ _____ _ 

C  . 

c  _  _ _ _ _  _  _ 

C  THIS  PROGRAM  SR  IT  TEN  FOR  a'IR  !-0«CE  CQNTHAC  T  F3361 5-6D-C-L  261 

c  _  __  _ 

C  *  *  *  TABLE  OF  SYMBOLS  USED . 

C  _ _ _ _ _ _ _ 

C  *  *  ARRAYS  *  • 

C  OEFL  -  MATRIX  OF  NOPE  DEFLECTIONS _ 

C  OEUEPK  -  MATRIX  OF  NODE 'STRAIN  CHANCES  IOELTA  EPSILON) 

C  FOR  THE  X  AND  Y  DIRECTIONS.  AND  THE  SPEAR  STRAIN  CHANGE 

C  OELEPN  -  MATRIX  OF  EFFECTIVE  INELASTIC  STRAIN  CHANGES 

C  OIJ  -  MATRIX  OF  DEFLECTION?  FOR  MEMBER  STRAINS 

C  DIM  -  MATRIX  OF  DEFLECTIONS  FOR  APPLIED  LOADS 

C  EP8ARN  -  MATRIX  OF  EFFECTIVE  INELASTIC  STRAINS  (EPSILON  BAR  SUB  N) 

C  . FOR  k-TH*CVd.E 

C  EPBARP  -  MATRIX  OF  EFFEC T I VE  INELASTIC  STRAINS  (EPSILON  BAR  SUB  N) 

C  FOR  K-l  CYCLE  I  THE  PRECEDING  CYCLE! 

C  EPS UK  -  MATRIX  OF  NODE  PLASTIC  STRAINS  {EPSILON  SUB  U)  FOR  THE 

C  X.  Y  and"  shear  STRAINS*  for  THE  K-TM  CYCLE 

C  KPMTM  -  TABLE  OF  CONTROL  CLUES  (LOAD  STEP.  WRITE  SAVE _ 

C  TAPE!  READ-IN  CONTROL  INFORMATION  USED  WITH  PMTN 

C  PMTM  -  TABLE  OF  LOAD  INCREMENTS.  PRINT  CONTROL  INCREMENTS  ANO 

C  UPPER  LOAD  LEVEL  PER  STEP  (CONTROL  INFORMATION) 

C  SGBARM  -  MATRIX  OF  EFFECTIVE  NOPE  STRESSES  FOR  LAST  CYCLE  THAT 

C  SHOWEO  AN  INCREASE  AT  A  PARTICULAR  NODE 

C  SGBARN  -  MATRIX  OF  EFFECTIVE  NOPE  STRESSES  FOR  CURRENT  CYCLE  _ 

C  SGBARP  -  MATRIX  OF  EFFECTIVE  NOPE  STRESSES  FOR  PRE VIOUS'CTCLE 

C  SIGUK  -  MATRIX  OF  NODE  STRESSES  (SIGMA  SUB  U)  FOR  K-TH  CYCLE 

C  SIJ  -  MATRIX  OF  STRESSES  FOR  MEMBER ~STR Al NS 

C  SIM  -  MATRIX  OF  STRESSES  FOR  APPLIED  LOADS 

C  TEFSTN  -  MATRIX  OF'  TOTAL  EFFECTIVE  STRAINS 

C  TEPSN  -  TABLE  OF  STRAIN  VALUES  DEFINING  THE  STRESS-STRAIN  CURVE 

C  TO V  EPS  —  MATRIX  OF  TOTAL  NOPE  STRAINS 

C  TSIGN  -  table  of  STRESS  LEVELS  DEFINING  THE  SfRESS-STRAJ[N  CURVE 

C 

C  »  *  VARIABLES  ANO  CLUES  •  * 

C  E  MODULUS  OF  B. ASTI C I TY 

C  EXP  -  INPUT  EXPONENT  FOR  RAMBERG-OSOQOP  EQUATION 

C  GNU  -  POISSONS  RATIO 

C  INTXPE  -  THE  OATA  I NPUT  TAPE  (MAY  BE  AN  AUXILIARY  TAPE  OR 

C  THE  SYSTEM  INPUT  TAPE  -  VARIES*  OURING*  INPUT  PHASE) 

C  K  THE  CYCLE  COUMTER 

C  KERRSW  -  CLUE  USED  FOR  TEMPORARY  INDICATOR  BET KEEN’ LINKS 

C  -  ALSO  AS  AN  ERROR  INDICATOR  FOR  LINK  I  ONLY 

C  KLU3  -  CLUE  INDICATING"  USE  OF  RAM9ERG-OSGOOO  EQUATION 

C  KLUA  -  CLUE  INDICATING  TOTAL  COUNT  OF  MATRICES  ON  AUXILIARY  TAPE 

C  KLUS  -  CLUE  INDICATING  MA TRI CE S  STI LL  NOT  READ  FROM  AUXIL.  T  APE 

C  KLU6  -  CLUE  FOR  PRINT  CONTROL  (*^»CH  CYCLES) 

C  KLUT  -  (NPUT  CLUE  FOR  PRINT  CONTROL  (“l  ~TO  PRFnT  ALL  CYCLES) 

C  KS3T  -  CLUE  FOR  THE  LOAD  LEVEL  CURRENTLY  IN  USE 

C  Ki  -  3  TIMES  THE  NODeHOUNT  I  INPUT)  — - 

C  NC  -  NUMBER  OF  NODES 


m 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAUX 

NIN 

NOUT 

PM 

SHRMOO 

S7 


THE  AUXILIARY  MATRIX  DATA  INPUT  TAPE 

THE  SYSTEM  JINPWT  TAPE  ...  . 

THE  SYSTEM  PRINT  OUTPUT  TAPE 
CURRENT  LOAD  LEVEL 
SHEAR  MODULUS 

INPUT  REFERENCE  STHEAS  EBB  BA N OCR CSUATi QM. _ 


OUTPUT  -  SUBROUTINE  TO  CONTROL  PRINTING  AT  YA« Y*hfi _L0*O  LEVELS 


ELASTIC  UNLOADING  ( FOLLOWS  HOOKES  LAM  WHEN  UN4.0A0I  NG| 


DIMENSION  TALE  121  1 1  I.TALF23I  II  >  »  TALF  3 1  till  »TALM«(  I  I  >  ... _ 

DIMENSION  AL  12  121  14!fAL1223(  34i»AU23t  134)  .ALEA44I34) 

DIMENSION  PMTMI  10.3)  .KPMTMI  I  Of  ,  I  •SI  Jl  I  02.  I  02  )  »TS  ION!  It  I _ 

Of MENS  ION  TEPSNI  til . SIGUK i  1021 .EPSUXC I  021  * SGB ARM I S* ) .SCBARPI 34 l 

D  I  M  ENS  ION  SGB  ARM  <  3*  )  .  EPBARNl  ^4  )  .EPBARPl  34)  •0ELEPNI34 1 . . 

DIMENSION  DIM!  102  )  .DI JC  1 02. 1 021 .DEFLlt 021 

COMMON  /COMA/  KLU3.  KLU4..KLUS.  KLU6  .  HA  .  NC  .  NOE  .  I  NT  APE  .  NI  N  .  NOUT  ,NWX 

2  .  K  .  KERR  SM  .  KSET  .  RUNE  ST  •  E  .  EXP  .  ST 

3  .  GNU  .  St-WMOO  j  PM  _ ...  . . .  ..  _ 

4  .  PMTM  .  KPMTM  •  SIM  •  DIM  .  DEFL  *  TSIGN  •  TEPSN 

5  .  TALF12  «  TALF23  .  TALF3I  i_rALF44_.  ALI2I2  .  ALI223  .  ALI23I  .. 

6  .  ALFA44  .  SIGUK  .  EPSUK  .  SGBARN  •  SGB ARP  .  SGB ARM  .  EPBARN 

T  ,  EPBARP  4  DELEPN  .  SIJ  _  ...  PI  J  _ _  .  _ _ _ _ 

1  CALL  ONELI  IEXIT) 

GO  TO  lO  _ 

2  CALL  TWOLI IEXIT! 

GO  TO  10  _  ....  _  _  . . 

3  CONTINUE 

4  CALL  FOURU  IEXIT)  .  . .  . . 

60  TO  lO 

5  CALL  FIVELl  IEX  IT  )  .  .  . 

10  CONTINUE 

RRITEI6.il)  IEXIT  .  _  _ _ _ _  .  . . 

GO  TO  I  I . 2. 3.4,  5.6)  .IEXIT 

6  CONTINUE  _ _ _ _  _ _ _ _  _ _ 

CALL  EXIT 

11  FORMAT  C  1  OH  I  IEXIT  *  ,121  ...  .  . . .  . 

STOP 

END  ..  _ _  .  . . . 


Note:  Subroutine  0\OTIM,  listed  on  Fage  190,  is  put  in  the  root 

Begnsnt  of  the  program,  after  the  main  program,  so  it  will 
be  acceBsable  to  all  its  callers. 
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SUBROUTINE  ONEL(IEXIT) 

GRUMMAN  AEROSPACE  CURP.  DECK  NO*  45128  LINK  1 
DIMENSION  TALE  I 2t 1 1 » »  TALF23 (11) .TALF3I (11) »T ALE44 ( 1 1  ) 

DIMENSION  AL12I2I34)  .  AL1 223  (  34  )  *  Al_  1  231  (34)  .ALFA44I34) 

DIMENSION  PMTMC 10*3) «KPMTM( 10) *SIM( 102) *SI J( 102 *102) *TSIGN( 1 1 ) 
DIMENSION  TEPSN ( 11) *SIGUK(102) *EPSUK( 1 02 ) *SGBARM( 34 » * SG8ARP< 34 ) 
DIMENSION  SGBARMI34) .EPBARNC 34 ) .EPB ARP( 34 ) .DELEPN( 34 ) 

DIMENSION  DIM (I  02 ) *DI JC 102.102) *BEEL(102) 

DIMENSION  BL (6) *10(12) .NR ( 3 ) *ND(3) .EL(3> »TA( 11 ) 

DIMENSION  PSTEP ( 3 ) 

DIMENSION  NFA(1)*NEQ(1) 

CUMMCN  /COMA/  XL03  •  KLU4  ,KI.U5  *  KI.U6  •  NA*  NC  •  NDE  *  I  NT  APE  •  NI  N.  NOUT  .  NAU  X 


2 

K 

« 

KERR  SW 

4 

KSET 

«  RUNEST 

• 

E 

• 

EXP 

• 

S7 

3 

• 

GNU 

• 

SHRMOD 

• 

PM 

4 

• 

PMTM 

♦ 

KPMTM 

• 

SIM 

.  DIM 

< 

OEFL 

• 

TSIGN 

• 

TEPSN 

5 

• 

TALF12 

V 

TALF23 

• 

TALF31 

.  TALF44 

• 

AL1212 

• 

AL1223 

« 

ALI23E 

6 

t 

ALFA 4 4 

* 

SI  G  UK 

• 

£P  SUK 

•  SGBAKN 

• 

SGBARP 

* 

SGBARM 

t 

EPBARN 

7 

• 

EPBARP 

V 

DELEPN 

* 

SI  J 

.  DU 

OATA  BL/36HL0AD  VOID  TAPE 

FINS 

ESTM 

/ 

OATA  ID/ 

72H  SIM 

sij  ts: 

CN  TEPSN 

DIP 

Dt JRAMOSG 

SIM 

1SIJ  DIM  OI J  / 

KERR  SW  =  1 
” INTAPE* =  NIN 
NFAf 1 )  =3 

NF3( 1 )  =4 

C 

C  *  *  SELECT  CLUE  NFC  AS  APPROPRIATE  WHEN  COMPILING  *  * 

C  NFC  =  O  FOR  GISMO  CARD  FORMATS  ON  AUXIL*  TAPE  (SI M.S IJ. DIM, OI J ) 

C  NFC  V  *0  * 

C  NFC  =  40  FOR  COMAP  FORMAT  CARDS  WHEN  DEBUGGING  ( S I M, S I J . DIM, DI J > 

"  NFC  =  40 

C  NFC  *  42  FOR  FORMAT  PACKAGE  DECIMAL  MATRIX  CARD  FORMATS  ON 

C  AUXILIARY  TAPE  9  ONLY  ( SI M *S I J .01 M ,D1 J )  FOR  AFFOL 

C  NFC  =  42 

c . . 

C  KLU3  -  1  WILL  INDICATE  USE  OF  THE  R AMBER G—OS GOOD  EQUATION 

C  FOR  STRAINS.  NOT  A  TABLE  INTERPOLATION 

KLU3  =  O 
KLUS  =  0 
KLU6  =  O 
PSTEP( I  i  =  6.0 
PSTEP(2)  =  0.0 

.  PSTEP(3)  =  0.0 

RUNEST  —  120. 

K  -  C 
KQOOFX  =  3 

T  flMING  ROUTINE  DISABLED 

C  IT  =  ICHRONI KQOOFX) 

DO  51  J22=l. 10 
51  KPMTKIJ22)  =  0 
LROW  -  6 

READ  (NIKj.1)  KLU4.KLU7.NA.NDE.GNU.(TA(I) ,1=1.1  I) 

WRITE  (NULT.2I)  <  TA ( I  1*1=1 *1 1) 

C  K3.U7  (INPUT)  s  0  TO  PRINT  ON  SELECTED  CYCLES 


173 


UUUU  i  V  W 


c 


c 


(INPUT)  -  1  TO  PRINT  ON  ALL  CYCLES 
IF(KLU7)384,384.382 


382  KLU6  =  I 

KLU6  (OUTPUT) 
384  CONT INUE 

M_U4  =  5  TO  9 
=  1  TO  4 
DECIMAL  INPUT 
DECIMAL  INPUT 
IF( KLU4  *LT* 1 ) 

_  IF ( KLU4 *GT  *4  ) 

go  to  343 


*  I  TO  PRINT  EACH  C  VCLE *  O  TO  PRINT  SELECTED 
FOR  A  CONTINUATION  RUN 

FOR  INPUT  ON  AUXILIARY  MATRIX  TAPE  NAUX  (9) 
CAROS  MUST  ALWAYS  BE  IN  INPUT  STREAM 
TAPE  MOUNTS  ON  LOGICAL  UNIT  NAUX  «9| 

GO  TO  3C2 
GO  TO  344 


344  CONTINUE 

saved  Tape  from  previous  run  of  inelastic  plate 

THIS  RUN  IS  A  CONTINUATION 
tEXIT  =  2 


RETURN 

JO'CON'f  I NUE 


C  SEPARATE  MATRIX  INPUT  TAPE  -  NOT  IN  INPUT  STREAM 

C  “This  run  is  a  new  one 


CYCLES 


INTAPE  =  NAUX 
KLU5"  =  KLU4 
302  CONT INUE 

~C.  NEW  Run  -  all  the  input  is  decimal  in  the  input  stream 

WRITE  (NUUT.9) 

52  READ  (  N  IN  •  2)  rEMPI  . TFMP2 .TEMP3 . TEWP4 
LROU  =  LROW  ♦  I 
~  DO~Srj?2*l,6 

IF( TEMPI .EQ*BL(  J22) )  GO  TO  54 
“53 'CONT INuE 
C  RAO  CONTROL  CARO 

"  “WRITE'TNOUT.  121  LROW 

WRITE  (NOUT.2)  TEMP t  , TEMP2 . TEMP3 . TEMP4 
GO  TO  998 

54  GO  TC  ( 55,66,55,60,60,65) ,J?2 
STS'  IF( LROW- 10)  56. SE,53 
C  KPMTM{  N  )  a  I  FOR  A  LOAD  STEP 

C  ' KPMTMC  N  )-  2  MOT  USED 

C  KPMTM(  N  )  =  3  TO  DUMP  MEMORY  INTO  A  SAVE  TAPE 

1C  PMTM  (N,I>  =  UPPER  LIMIT  OF  STEP 

C  PMTM  IN. 2)  =  INTERVAL  (INCREMENT)  FOR  CALCULATION 

C  -PMTM-TX.3I  A  TWTEOVAL  ( INCREMENT)  PCR  PRINT  OUTPUT 

56  KPMTM(LROW)  =  J22 
“  "  TTMTM  (LROW  ,  1 )  =  TEMP2 

TEMPS  =  TE  MP2— PSTEP ( J22) 

”  PNTMfL«0V,2)-*  SI GN(TEMP3, TEMPS) 

PSTEP(J22)  =  TEMP2 

- TFTFTrmfLROVTZJ  157,63,57 

63  GO  TCf995.995.57) , J22 

57  CONTINUE 
PMTM (LROW. 3)-  TEMP4 
GO  TG  52 

65  RUNE  S  T  *  TEMP2  -  1.0 

“WIUBIT  a  LftQta  -  1 
GO  TO  52 
60  CONTINUE 

17<) 


DO  3«l  J23  a  I,  ic 
IF<S<PMTM<  J23) ) 3* I *361  .362 

362  IF(KPMTM< J23 l~4) 363 . 361 ,361 

363  J24  ^  KPMTMC  J23  ) 

<30  TO  ( 364.364, 36 3) . 

364  fcRITE  (NOUT. 22)  PI*T M  (  323  »2 )  .  PM T M<  J23 . 1  ) 

IF<PMYM(  J23»  2))  36 11. 361 .365 

J6S  WRME  <  NOUT  ?  23  )  PMTM(J23»3) 

GO  TC  361 

368  WRITE  { NOUT . 2TJ 
361  CONTINUE 

IF< GNUI06.07.ar 

86  GNU  *  .3 

87  CONT INUE 

IF  (  N  A  ) 999  *91  s>92 

91  NA  *  102 

92  IFCNA-lO*)  93.93.999 

93  CONTINUE 

96  IF(NA~3*(NA/3) I 999.97.999 
9?  NC  =  NA/3 

DO  303  X  2 1  a  1.11 
TSIGMI21)  a  0.0 
303  TEPSMI21)  *  0.0 

iFIKLUA)  308.308.306 
306  CONTINUE 

1NTAFE  a  NAUM 
KLU5  =  KLUS  -  I 

C  STATEMENT  t08  HEADS  I KPUT  STREAM  ON  AUXILIARY  TAPE  NAUX  <9> 

10B  CONTINUE 

IF( IN7APE.fcQ.NIN)  GO  TO  1108 
IF ( NFC— 40  )  I  108.21C8.31 08 
C  GISMC  FORMAT  CARO  READING  LIST 

1108  READ  (INTAPE.  3)  NAME .NHOWS » NCOLS 
GO  TO  1001 

C  COMAP  FORMAT  CARO  READING  LIS7 

2100  READ  (INTAPE. 43)  NAME .NROWS • NCOL S 
GO  TC  1001 

C  AFFOL  FORMAT  CARO  RE AO I NG  LIST 

3108  READ  (  3NTAPE • 45 )  NROWS .NCOL S • NAME 
1001  CONTINUE 

DO  I1C  1 2 1  =  1.12 
IF  (  NAME-  ID  (  121)  )  110.311 .1  10 
110  CONT!  HUc 

C  BAD  INPUT  -  MATRIX  NAME  NOT  ACCEPTABLE 

GO  TC  997 

311  GO  TC  (  321.322* 323.324.325. 326.472.1  11  ,321  .322.325.326) » 121 

321  no  321  11  =  l.NA 

331  SlM(Il)  =  0.0 

WRITE  (NOUT, 20)  NAME .NfiOWS. NCOLS, I NTAPE 
IF(NROWS.NE.NA)  KERRSWa2 
IE  (NCIJLS. NE.  1)  GO  TO  990 
GO  TC  111 

322  OO  332  II  a  l.NA 

DO  322  12  =  l.NA 

33?  SXJ<  11.12)  *  0.0 

WRITE  (NOUT. 20)  NAME .NROWS . NCOLS. I NTAPE 


IF  <  NRUHStEOo  NCOL  S  )  GO  TO  433 
WRITE  ( NOUT *  33 )  NAME  .NROV S » NCQLS 
KEfcWSW  =  2 


GO  TO  468 
433  CONTINUE 
46ft  CONTINUE 
GO  TC  III 

323  DO  323  II  = 

333  TSTGM  II)  = 
GO  TC  111 

324  DO  324  II  = 

334  YEPSMII)  = 
GO  TC  111 

325  DO  32E  II  = 


1*11 

0.0 

1 . 1 1 
0.0 

1 .NRCWS 


335  D!M{  I  » 1  =  0.0 

WRITE  (NOUT.20)  NAME .NROWS.NCOLS* INTAPE 
IF (NCOLS.NE .  1  )  GO  TO  590 
iF'lNfiOwS.EQ.NOE)  GO  TO  449 
KERR  SW  =  2 

WRITE  (NOUT, 40)  NRO W S .NAME  *  NOE 
44Q  CONT !NUE 
GO  TC  111 

32<?  DO  326  II  =  l.NRCWS 
OCT  326  12  =  l.NCCLS 

336  D I J (  11.12)=  0.0 

WRITE  (NOUT.20)  NAME .NROWS.NCOLS. I NTAPE 
IF (NROWS.EO.NDF )  GO  TO  461 
KEHRSW  =  2 

WRITE  (NOUT.40)  NRO W S .NAME • NDE 
461  CONTINUE 
GO  TC  111 
472  S7  =  0.0 
EXP  =  0.0 
E  *  0.0 


KLUJ  =  1 

WRITE  (NOUT.37) 

GO  TC  111 

111  IF ( 121 «EQ .8)  GO  TO  150 

112  CONTINUE 

IFI INTAPE. EU.NIN )  GO  TO  1112 
IFCNFC-40)  1112.2112*2112 
C  G I SMC  FORMAT  CARO  READING  LIST 

1112  MEAO  (INTAPF.  4)  CNR ( 1 22 > .NO ( 122 1 .ELI I  22  I • 122* 1 • 3 > 

GO  TC  1002 

C  COMAP  FORMAT  CARO  READING  LIST 

2112  READ  (INTAPE. 44)  (NR ( I  22 ) .NO C 122 ) .EL ( 1 22 ) • 122= 1 • 3 ) 

GO  TO  1002 

C  AFFOL  FORMAT  CARD  READING  LIST 

3112  READ  (INTAPE, 46)  (NR ( 1 22 ) .NO ( 122 ) .EL ( 1 22 ) , 1 22= 1  * 3 ) 

1002  CONTINUE 

IF ( NR (  1  ) ) 996. 109, 113 
109  IF ( KLU5 ) 308 .308.3C6 
308  INTAPE  =  NIN 
GO  TC  108 

113  GO  TO  ( I22.122.12S.126. 201.202. 474 . 150 , 1 2 1 • 122 .20 1 , 202 ) . 121 

C  READ  IN  ARRAY  S1GMA-IM 
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r 


121  MROW  =  NR (  t  l 

WRITE  <NOUT.4J>  Jfc!R(I22),  ND(  £221  ,EL(  I  22  1  •  I  22=  1,3$ 
SIM  (MRU a 5  b  ELIl) 

IF(EL(2))I27,128»12? 

127  MROW  =  NR( 2b 

SIM  (MROW)  =  EL  (?.  I 

128  IF(  ELC  3)  )  129*  1 1  2, 129 

129  MROW  =  NR (3) 

SIM  (MROW)  =  EL  C  3 ) 

GO  TO  112 

C  . ..  ..BEAD  IN  ARRAY  SIGMA-IJ 

122  MROW  =  NR ( 1 ) 

. MCOL  =  NO( 1 ) 

SIJ  (MROW. MCOL)  =  EL(1) 

IF (EL (2))  130. 131  ,J30 

130  'MROW  =  NR  (  2  ) 

_ MCOL  =  ND ( 2 ) 

"sfj  (MRUW.MCOL)  =  EL ( 2 ) 

131  IF( EL( 3) ) 132,112,132 

132  MROW  "=  NR  (3) 

_  MCOL  =  NO { 3 ) 

SIJ  (MROW, MCOL)  —  EL ( 3 ) 

_ GO  T  C  | i 2 

C  READ  IN  ARRAY  TSIGN  (TABLE  OF  SIGMA  BAR  N) 

125  MROW  =  NR< 1 ) 

TSIGMMRQW)  =  EL  (  1  ) 

IF(EL( 2) )  139,140  *139 

139  MROW  '=  NR(2| 

TSIGMMROW)  =  EL (2 ) 

140  IF( EL (3) 1141 ,112,141 

141  MROW  =  Ntt<3) 

TSIGMMROW)  -  EL  <  3  ) 

GO  JO  112 

t  READ  IN  ARRAY  TEPSN  (TABLE  OF  EPSILON  BAR  N) 

1 2^6  MROW  =  NR  (  1  ) 

TEPSMMRCW)  "  ELU) 

IF(EL(2))142v143,I42 

142  MROW  =  NR ( 2 ) 

TEPSMMROW)  =  EL  \  2  ) 

143  IF(EL(3) )  144,112,144 

144  MROW  =  NR ( 3 ) 

TEPSM>RO*W)  -  EL  C  3) 

GO  TO  112 

C  REAO  IN  ARRAY  OIM 

20 1  MROW  -  NR(  I  ) 

WRiTE  (NOUT.4)  (  N«<  I  22)  ,NO<  122  )  ,El.{  122  ),  122=1  .3) 
OIMC MROW  )  *  £L( 1  ) 

TRELI  21)221 ,222 ,221 

221  MROW  »  NR ( 2  I 
DIM(MROW)  x  EL< 2 ) 

222  IF(EL(3>)223, 112,223 

223  MROW  x  NR ( 3 ) 

DIM(MROW)  *  EL ( 3 ) 

GO'tC  112 

C  REAO  IN  ARRAY  01 J 

202  MROW  =  NR (  1  ) 


m 


MCOL  =  NO( 1 ) 

D1 JC VROW.MCOL)  a  CL ( I ) 

IF(FL( 2 >  >224,225.224 

224  MRCJW  *  NR(2> 

MCOL  *  NOC2) 

D1J( WROW.MCOL)  a  EL  (  2  > 

225  IF( EL ( 3 ) ) 226  *112*226 

226  MROW  =  Nft(3) 

MCOL  =  ND(3> 

DIJ( WROW.MCGL)  =  EL (  3  ) 

GO  TC  112 

C  READ  IN  CONSTANTS  FOR  R AMBER G-OSGOOO  EQUATION 
474  S7  s  EL  (  1  ) 

EXP  *  EU2J 
E  a  EL  C  3  ) 

WRITE  (NOUT, 38)  S7.EXP.E 
GO  TC  112 

150  CONTINUE  . 

C  END  CF  LOOP  THAT  RE AOS  OEC1MAL  MATRICES 

IF(KLU4.GE,1 )  REWIND  NAUX 

165  OO  I  €  6  I  =  1,11 
TALF 12{ 1 )a  0,5 
TALF23I I >=  0.5 
TALFSK  I  )=  0,5 

166  TALF44I I  >  =  1,0 

C  4*4  IFIKLUJ.EQ. 1 >  TSIGNI2)  *  START  OF  INELASTICITY  4444* 

C  TS1GM2)  MUST  BE  SUPPLIEO  OR  THE  PROGRAM  ASSUMES  PLASTICITY 

C  STARTS  AT  ZERO  EFFECTIVE  STRESS 

IF ( KLU3 , EQ, 1  I  GO  TO  ei 
E  a  T  SIGN ( 2)/TEPSN(2) 

IE  =  IF  I X ( E/  100 • > 

E  a  FLOAT! 1004IE) 

81  SMRMCD  a  E/( 2.0* ( 1 • 0*GNU> > 

WRITE  (NOLT.S)  E .SHRWOO.GNU 
WRITE  I NOUT , 6 ) 

t>0  149  11  =  1,11  * 

149  WRITE  (NOUT, 7)  I  1  , T S I GN (II )  , TEPSN ( I  1 > 

K  *0 
PM  *  0 . 0 
152  IEXIT  a  4 

CALL  OVRTIM! K000FX) 

IF  (KERRSW  ,EQ  ,2)  GO  TCJ  993 
RETURN 

990  WRITE  ( NOUT «  33)  NAME  ,NROWS, NCOLS 

GO  TC  998 

993  WRITE  (NOUT. 34) 

GO  TC  998 

995  WRITE  (NOUT, 16)  LROV 
GQ  TO  998 

996  CONT  INUE 

WRITE  (NOUT, 14)  NAME 

WRITE  (NOUT, 4)  ( NR( I  221 • NO ( T22 > ,EL C 122 ) • 1 22»l , 3) 

GO  TC  998 

997  CONTINUE 

WRITE  (NOUT, 13)  NAME 

998  IF (KLU4,GE • 1 )  REWIND  NAUX 
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CAM.  EX£Y 

999  WRITE  (NOUT.Il)  Nm 
GO  TC  998 

1  FORMA  T!  2  I  1  r  2U.F6 -3  .  I  SA6) 

2  FORMAT < 6X.A4.EI0.6.E1G. I .EiO.i > 

C  *  GY  SMC  CARD  FORMATS  FOR  TAPE  9 

3  FORMAT (  I  1  X  .  A6.1X.2I3) 

A  FORMAT! 3<  1  X.2  I3.E IS. S  )  I 

5  FORM AT ( 26HI  MODULUS  OF  ELASTICITY  -  .FI1.0.4H  PSI ibX< 16HSHEAR  MOOU 

•  ILUS  S  ,F1  1.0.4H  PS!  »  £  X  « 5HNU  a  ,F6.3) 

_  6  FORMAT ( 4 1H0  TABLE  OF  VALUES  FOR  STRESS-STRAIN  CURVE  ✓/ 

"i  5X  «  2  8HPO I  NT  STRESS  LEVEL  STRAI  N/ 16  X.  3HPSI  ,9X  »  7HI  N#/ IN.//  > 

7  FORMAT! 6X, I  3. F 1  3.2, F 1  So 8) 

9  FORMAT ( //79H  THIS  ISUTRQPIC  RUN  USES  ELASTIC  UNLOADING  (HOOKES  L 
1 AW )  WITH  STRAIN  HARDENING) 

11  FORM  AT (  S  OH  ERROR  N A  = I  A ) 

12  FORM  AT  (  26H  ERROR-  INCHF.MENT  CARO  N0.*I3.5H  N.G.  ) 

13  FORMAT! 14H  ERROR-MATRIX  ,A6> 

14  FORMAT! 17H  ERROR-NEG . INDEX  A6I 

16  FORM  AT ! 33H  ERROR-NO  INTERVAL  —  I NCREMENT  CARD* 13) 

20  FORMAT! //SX. 7KMATRI X  «A6*1X*I3»8H  ROWS  X  *13*1  OH  COLUMNS  FROM  TAPE 

1.12) 

21  FORMAT! 1H1.29X. I 1A6) 

22  FORMAT! SX, 16HLOAD  INCREMENTS  .F9.2.11H  POUNDS  TO  .FI0.2.7N  POUNDS) 

23  FORMAT! 1H+.61X. 1 9HPRIKT  OUTPUT  EVERY  .F9.2.7M  POUNDS) 

27  FORMAT! SX. 35HST0RE  MEMORY  ON  TAPE  II.  THEN  EXIT) 

31  FORMAT! 10X. ! 2) 

33  FORMAT! 14H  INPUT  MATRIX  .A6.2I4.46M  CN  TAPE  IS  NEITHER  SQUARE  NOR 
1A  COLUMN  VECTOR) 

34  FORMAT! 74H  INPUT  ERROR  -  INDEX  IN  INPUT  MATRIX  DOES  NOT  MATCH  CL 
1UE  IK  CONTROL  CARD) 

37  FORM  AT! //5X. 24HRAK8ERC-OSGOOO  CONSTANTS) 

38  FUPM AT! SX .22 F INPUT  REFERENCE  STRESS .El 6. 7/5X . I 4HE NPUT  EXPONENT. 
IF10.E/5X,  t  SHYOUNG*  S  MODULUS .FI  1.0) 

40  FORMAT! /2SX. 13. I 6H  MOWS  IN  MATRIX  .A6.15H  DOES  NOT  MATCH. 14. 

1 19H  ROWS  t  I  INPUT  CL L£/5 X ,2 1 HRUN  WILL  NOT  CONTINUE//) 

C  *  COMAP  CARD  FORMATS  FOR  TAPE  9 

43  FORMAT!  1 IX. A  6  •  4  X  ,  I  3 . 2  X  .  !  3  ) 

44  FORM  AT(3(2I4*E15.7.1X)) 

C  *  SPECIAL  FORMATS  FOR  AFFOL  FORMAT  INPUT  ON  AUXILIARY  TAPF  9  *  * 

AS  FORMAT! IX. 214. 57X.A6) 

46  FORMAT! 1X.3! 214, EI3.S. IX) ) 

END 


1T9 


n  a 


c 

1 

c 


SUBROUTINE  TWOLCIEXIT) 

GRUMMAN  AEROSPACE  CORP.  DECK  NO.  A5;/ft  LINK  2 
MATRIX  ANAl.  VS  IS  OF  iNELASTtC  PLATE  LINK  2 
THIS  LINK  READS  IN  A  SAVED  BINARY  TA°E  -  FIRST  PART 
DIMENSION  T  ALF I 2<  II  I  *  T  ALF  ?  3 1  I  1  > .TALF31  (lit  .TALFAA I  1 1 > 

DIMENSION  AL 1 2  121 34  I  .AL I  2231  34) ,AL I  231  I 3A )  . ALF AAA  134 1 
DIMENSION  PMTM (  10.3)  .KPMTMI  1  O  )  .  St  M  (  I  02  I  .  SI  Jf  t  02  .  1  0  2  )  .  T*  I GN  <  1  1) 
DIMENSION  TEPSNI  11). SIGJKI  102 ) .EPSUK (102). SGBARNI 34  >  .SGSARPI 34 ) 
DIMENSION  SOB ARM < 34 ) .EPSARNC  34 ) , EPB ARP { 34 >  .DELEPNI 34 > 

DIMENSION  DIM!  1021. DIJII 02. 102)  .DEFLll  02) 

COMMON  /COMA/  KLU3.  KLUA.KLUS.  KLU6,  NA  .NC.NOE.  I  NT  APE  ,NI  F1  .NOUT  .NAUX 


2 

« 

K 

• 

KERRSW 

% 

KSE  T 

R  UNE  S  T 

.  E 

EXP 

• 

S  7 

3 

• 

GNU 

• 

SHRMOD 

• 

PM 

4 

* 

PNTM 

t 

KPMTM 

• 

SIM 

« 

DIM 

.  OEFL 

• 

TSIGN 

% 

T  EPS  N 

5 

t 

T  ALF  1  2 

V 

TALF23 

• 

TALF31 

« 

talf a a 

v  ALt  212 

• 

AL 1223 

* 

AL 1231 

6 

« 

ALFA44 

• 

S  l  GUK 

• 

EPSUK 

• 

SGBARN 

.  SG8 ARP 

• 

SGBARH 

• 

EPB ARN 

7 

♦ 

FPBARP 

t 

DELEPN 

« 

SI  J 

• 

01  J 

DIMENSION  8LI6) 

DIMENSION  PSTEPI3) 

DATA  BL  /  36K.OAO  VOID  TAPE  FINS  E  STM  / 

INTAPE  =  NAUX  -  l 

HEAD  I  INTAPE)  KLU3.  KLUAiKLUS.  NA.NC.NDE.  NIN.NOUT 

2  ,  K  ,  KERRSK  .  KSET  .  RUNES!  .  E  *  EXP  •  S7 

3  .  Gr.'U  .  S  HR  MOO  ,  PM 

C  KLU6  =  1  WILL  PRINT  EVERY  CYCLE,  O  WILL  PRINT  ONLY  SELECTED  CYCLES 

WRITE  (NOUT.9) 


NCLU  =  I 
KERBS*  =  2 
DO  SI  1*5  =  I . 1 0 
S  1  K PM T M(  |  42  )  =  O 

PST  EPI  I  )  *  0.0 

PSTEPI2)  *  0.0 
P5 i EPI 3 )  —  0.0 


LROW  =  o 

S  2  PEAD  ININ. 2)  T EMP I  ,  T EMP 2 . TEMP3 .  TE  MP4 
LROW  LROW  ♦  1 

00  S3  J 22=  1,6 

!F( T EMP l .£0 .BL I J 221 >  GO  TO  5* 

53  CONTINUE 

C  BAD  CONTROL  CARD 

WRITE  (N0UT.I2)  LROW 

WRITE  (NOUT.?)  TEMP  I • TE  MP  2 .  TE  MP3 , TE  MPA 
CALL  EXIT 

54  GO  TO  I 55. 66, S5, 60, 60, 6b ) . J22 

55  IF( LROW- JO >56. 56, 53 

C  KPMTMI  N  »  =  1  FOR  A  LOAD  STEP 

C  KPMTMI  N  )  =  2  NOT  USED 

KPMTM(  N  )  —  3  TO  DUMP  MEMORY  INTO  A  SAVE  TAPE 

PMTM  IN. | |  =  UPPER  LIMIT  OF  STEP 

C  PMTM  IN. 2)  =  INTERVAL  (  1 NC RE  ME N I )  FOR  CALCULATION 

C  PMTM  (N.3)  =  INTERVAL  (INCREMENT)  FOR  PRINT  OUTPUT 

56  KPMTM(LROW)  =  J  2  2 
NCLU  =  2 


l8o 


V  V 


KSET  =  1 

PMTM< LHO», I TEMP2 

TEMPS  =  TEMP2-PSTEPI J22) 

PMT M( LRO« . 2 ) =  S I GN<  TEMP3 . TEMPS  1 

PSTEPl  J22 I  =■  TEMP  2 

IF( PMTH(LRO«# 2 ))  57.  6  3.  5  7 

63  GO  TO  (  995, 995.57)  .  J 22 
57  CONTINUE 

PMTM(LROW  .  3>  =  TEMP  4 
GO  TO  52 

6  5  RUNEST  =  TEMP  2  -  1.0 

66  LRQW  3  LROW  -  1 

GO  TO  52 

60  CONTINUE 

GO  TO  (61.62I.NCLU 
62  CONTINUE 

READ  (INTAPEl  JUNK 
READ  <  INT  APE  1  JUNK 
GO  TO  64 

61  CONTINUE 

READ  (  INT APE)  PKTM 
READ  (INTAPE)  KPMTM 

64  CONTINUE 
WRITE  ( NOUT. 1 ) 

DO  361  J23  =  1.10 
I E  {  K  PMT  Ml  J£J))361.36I.  362 

362  IF( KPMTMI J23I-4I 363. 361 . 361 

363  J?4  =  KPMTMI  J  2  3  I 

GO  TO  ( 364. 364 .363) . J24 

364  WRITE  (NOUT. 22)  PM T M ( J 2 3 . 2 ) . PM T Ml J23 • 1 > 

!F(  PMT M (  J  23.  31  )361. 361. 365 

365  WRITE  (NOUT, 23)  PMTM(J23.3> 

GO  tO  361 

368  WRITE  (NOUT. 27) 

361  CONTINUE 

READ  (  INT  APE  1  SIM 
RC  AO  (INI  Ai-fc  J  p.  ' 

READ  I  INT  APe  »  DIM 
READ  (  INTAPE)  OIJ 
READ  I INTAPEl  OEFL 
READ  (INTAPE)  T  S  I  GN 
READ  (INTAPE)  TEPSN 
READ  (INTAPE)  T  ALE  1 2 
RE AO  (INTAPE)  TALF23 
READ  (INTAPE)  TALF3I 
READ  (  INTAPE)  TALF44 
READ  J  INTAPE)  AL  I  2  l  2 
READ  (INTAPE)  AL1223 
READ  (INTAPE)  AL1231 
READ  (INTAPE)  ALFA44 
READ  (  INT  APE )  SI GUK 
READ  ( INTAPE)  EPSUK 

C  GRUMMAN  AEROSPACE  CORP.  DECK  NO.  45128  LINK  3 

C  MATRIX  ANALYSIS  OF  INELASTIC  PLATE  LINK  3 

this  is  the  second  half  of  old  link  2 
this  link  reads  in  a  saved  BINARY  TAPE  - 
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SECOND  PART 


REAP  1  INTAPE)  SGBARN 
READ  (  INTAPE)  SGHARP 
READ  I INTAPE)  SGBARM 
READ  I  INTAPE)  EPBARN 
READ  { INTAPE)  EPBARP 
READ  (INTAPE)  DELEPN 
REWIND  INTAPE 

WRITE  ( NOUT »  5 )  E • SHR  MOD v GNU 
IF(  KLU3.NE.  I  )  GO  TO  140 
WRITE  (NOUT, 37) 

WRITE  (NOUT. 38)  S7,£XP,E 
140  CONTINUE 

WRITE  ( NOUT  «  6  ) 

DO  14V  11—1*11 

149  WRITE  (NOUT. 7)  t  1  . T S  I GN ( I  l  > . TE P5N (  I  I ) 

iexit  =  * 

CALL  OVKT IM(KCOOFX) 

RETURN 

99S  WRITE  (NOUT. 16)  LROW 

CAL1..  EXIT 
STOP 

1  FORMAT! IHO. 29X . 37HCONT INUA TION  RUN  -  INELASTIC  ANALYSIS) 

2  FORMAT  (  6X.  A< ,  E  t  0.6.  E  10.  l.E  1C».  I  ) 

5  FORMAT!  26HO  MODULUS  OF  ELASTICITY  *  ,F1  i.D.tH  PS I . 6 X . 1 6HSHE AR  MODU 

ILUS  =  .FI1.0.4H  PSt.6X.5HNU  *  .F6.3) 

6  FORMAT (41  MO  TABLE  OF  VALUES  FOR  STRESS—  5TR  AI N  CURVE  // 

I5X.29HP0INT  STRESS  LEVEl  STRAI  N2I5X.  3HPSI  *  9X , 7  HI  N.  /IN.//) 

7  FORMAT! 6X .  (  3.  F I  3 . 2. F  15.8) 

9  FORMAT  (//79H  THIS  ISO  TROPIC  RUN  USES  ELASTIC  UJ4LOADING  (HOOKES  L 
1AW)  WITH  STRAIN  HARDENING) 

12  FORM  AT ( 26  H  ERROR-  INCREMENT  CARD  NO..I3.5H  N.G.) 

16  FORM  AT  (  33  H  ERROR-NO  IN TER V AL- I NCRE ME NT  CARO. 13) 

22  FORMAT!  5X .  1 6HLCIAD  INCREMENTS  .F9.2.1IH  POUNDS  TO  .F10.2.7H  POUNDS) 

23  FORMAT  (  IH4*  61X  ,  19HPR  INT  OUTPUT  EVERY  .F9.2.7H  POUNDS! 

Z7  FORMAT  (  SX e 3SHSTORE  MEMORY  ON  TAPE  A-ft*  THE  N  EXIT) 

37  FORMAT! //5X, 24KR AM6ERG- OSCOOO  CONSTANTS) 

38  FORMAT!  SX  .  22HINPUT  REFERENCE  S  TRE  SS  .  E  l  6.  7/ 5  X.  S  AMI  NPUT  EXPONENT, 
1FJ0.S/5X.  I  SrlTOUNG*  S  MODULUS, FI  t.O) 

END 
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1 1| '-lUL'l'MlIfc  jiMi<UI N  ,bt)< Ittti 'HiliU^jlUili 


SUBROUTINE  F  I  WEl.<  Cfc'X  If  ) 

C  GRUMMAN  AEPOSPACE  CORP.  DECK  NO.  *5120  LI  NK  5 

C  MAT R I  X  ANALYSES  Of  INELASTIC  PLATE  LINK  5 

C  THIS  LINK  WRITES  A  SAVE  TAPE  FOR  RESTART 

O  $  MENS  ION  TALE  121  I  1  »,TALF23<  l  »  ?  #  TALE  3 i <  I  I  1  .TALE** (  I  I  » 

DIMENSION  AL  121?*  H).Al|223(  34 > .ALT  231  I  34)  .ALFA**  04) 

01  KENS  ION  PMT  II  I  0.  3  >  .KPJ4TH  (  I  01  .  SI  Mi  1  02)  ,  SI  J(102.IO?t  .TSICM  I  1) 

D1  MENS  ION  TEPSNI  1 1 »  <  SIGUK!  1021 .fcPSUK (  1 02  I . SGBAHNI 3* I  . SG3ARPI 3*  > 
DIMENSION  SGSARMI  3*  )  .EPBARNl  3*  I  .EPBARPI  3*1  .OELEPNO*  » 

O J  MENS  ION  OIMI  102I.DIUI I  02  <1021  »  OEFL 1 1  02  I 

/  COMA.'  KLU3.  KLU4.KLU5,  KLU6.NA.NC.  NOE  *  1  NT  APE  «NI  N  .MOOT  .  NAUX 


COMMON 

2  .  K 

3  *  GNU 
*  .  PMT  M 

5  .  TALFl* 

6  ,  ALFA** 

T  ,  EPSARP 

NST  APE  *  I  t 
WRITE  INST  APE  > 


Ker.RSW 

SHRMOD 

KPMTM 

TALE23 

SIGUK 

OELEPN 


KSET 

PM 

SIM 

TALE 3  I 

EP  SUM 
SI  J 


RUNE  ST  ,  E 


DIM 

TALF44 

„GBARN 

DU 


DEEL 
AL1 212 
SGSARP 


EXP 

TSIGN 

AU223 

SG9AMN 


S  7 

TEPSN 
AL1 23  I 
EPBAflN 


KLU3.  KLU4.KLU5. 


NA  , 


25 


■y  ,  k  .  kfrrsw  .  kset 

3  .  GNU  ■  SHRMOD  .  PM 

►  RITE  INST  APE  )  PKTM 
WRITE  I NST  APE )  KPMTM 
WRITE  I NST  APE )  SIM 
WRITE  I NST  APE 1  SIJ 
WRITE  INSTAPE)  DIM 
WRITE  INSTAPE)  DIJ 
WRITE  ( NST  APE  1  DEFL 
WRITE  ( NST  APE  I  TSIGN 
WRITE  INST  APE 1  TEPSN 
WRITE  I NST  APE  >  TALF I  2 
WRITE  INSTAPE)  TALF  23 
WRITE  ( NST  APE  I  TALF3  I 
WRITE  INSTAPE)  TALF44 
SRJTF  I  MS  TAPE)  AL 12  12 
V  P  I  T  IN-.TA.-t)  AL  12  2  3 
WRITE  INSTAPE)  AV.  123  1 
WRITE  ( NST  APE 1  ALFA  4  4 
WRITE  INSTAPE)  SIGUK 
WRITE  INSTAPE)  EPSUK 
WRITE  INSTAPE)  SG8ARN 
WR I rE  INSTAPE!  SGeARP 
WRITE  INSTAPE)  SGRARM 
WRITE  INSTAPE)  EPBARN 
WRITE  INSTAPE)  EPBARP 
WRITE  INSTAPE)  DELE  PN 
WRITE  (NOUT.25)  NST  A  PE 
PRINT  25. NST  APE 
END  FILE  NST APE 
REWIND  NS  T  APE 
WR  I  E  (NOUT.25)  NST  A  PE 
CALL  OVRT  IM(KOOOFX) 

CALL  EX  IT 
RETURN 

FORMAT ( 19H  SAVE  LOGICAL 


RUNE  ST 


NC 

fc 


.NOE. 


EXP 


NI N  .NOUT 

.  S7 


TAPE  ,13. 
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l OH  FOR  RERUN/2/ ) 


•  4. 


n  n 


c 

c 

c 


SUBROUTINE  FQ'JRL  (  IEX  IT  > 

GRUMMAN  AEROSPACE  COUP.  DECK  NO.  4512E  t I NK  A 
MATRIX  ANALYSIS  OF  INELASTIC  PLATE  LINK  A 
TNtS  LINK  OOES  THE  CALCULATION  AND  WRITES  PRINT  OUTPUT 

DIMENSION  TALE  121  1 1  ) ,T»LF23(  1 1  I • T ALE  31 (  II »  .TALFAAI  1  I  I 

DIMENSION  AL  1  2  121  3A  )  ,-AL  I  2231  3A  l  .  AL  I  23*  (  3A>  .ALFA44I  34) 

DIMENS  ION  PMTMI  I  0. 3  I  «KPNTM(  I  O  )  .  Si  M  <  1  02  >  a  SI  U  <  1  02  a  1  02  >  .  T  S  I  GN  I  1  1) 

DIMENSION  TEPSNt  Mil SIGUKI  *02)  .EPSUKI  1021. 5G8ARNI34)  .SGBARPI 34 ) 
DIMENS  ION  SGBARNI  3A )  .EPS ARN( 3A ) .tPB ARP I 3A )  .OELEPNI 3A ) 

DIMENSION  DIM!  102)  . D I  JC  t  02-1  02 )  aDFFUl  02  > 

DIMENSION  TEFSTN ( 3A» . TOTEPSI I  021  .OELEPKI 102) 

COMMON  /COMA/  KL  U  3  a  KL  UA  .  KL  U5  a  KL  U6  a  NA  a  NC  a  NOE  .  J  NTA.'fc  .  NI  N.NOUT  ,NAUX 

2  .  K  ,  KERRS*  .  KSET  .  « UNE S T  •  E  .  EXP  a  S7 

3  a  GNU  a  SHRMOO  .  PM 

A  .  PMT M  .  KPFTM  .  SIM  a  OIL  a  CCrL  r  '  I r  *  a  TEPSN 

5  c  TALFI2  .  TALF23  .  TAt  F  3 1  a  TALFA4  •  *11212  «  ALU.  .  AL123I 

6  a  .ALFAAA  .  S I  GUK  .  EPSUK  a  SG3ARN  a  SGBARP  .  SGBARM  •  c  PBARN 

7  a  EPBARP  .  DEL  EPN  ,  SIJ  a  DU 

GO  TO  C 41 8. AIR), KERRS* 

C  INITIALI2E  WORK  AREAS 

AIR  OU  102  It  =  I.NA 
EPSUK  III)  =  0.0 

102  SI GUK{ 11)  =  0.0 

DO  103  II  =  1 . NC 

DCCEPNC  II)  =  0.0 
SGB  *PN'  I  • :  -  0  .C 
SGBARPI  It]  =  0.0 
S GB  ARM  (  III  =  0.0 
EPBARP  (  II  I  *  0.0 
AL  1212111)=  2.0ATALFI2I  2) 

AL  12231  I  I  )=  TALFI2I2I  ♦  TALF23I2) 

AL123U  111=  TALFJ2I2)  ♦  TALF3K2) 

ALFA<tA(II)=  TALFAAI2) 

10  3  EPBARNI  II)  =0.0 

DO  105  II  -  la  NDE 

SOS  DEFL-1  I  i  )  =  0.0 

KSET  =  I 

AIR  CONTINUE 
KfaEF  -  k 

IF  (  KLU  3  a  E  Q  a  0  )  GO  TO  151 
AA  =  3a*{  (  I./S7)**! EXP-I.)  )/7. 

151  K  =  K  i 

KLU  2  =  1 

IF  KLU  2  =  0.  THE  CYCLE  OF  OPERATIONS  KILL  BE  PRINTED 

KLUft  =  I  WILL  PRINT  EVERY  CYCLE.  0  WILL  PRINT  ONLY  SELECTEO  CYCLES 
1F( KLU 6 )2*a. 248. 249 
249  KLU  2  =  0 
248  CONTINUE 

IF{ K- 1  )  270. 2  70 , 27  1 

270  KLU  2  -  0 

271  CONTINUE 
GO  TO  T 416. 417|, KERRSW 

4 1 7  KLU?  =  0 

KERRSW  =  l 

416  CONTINUE  igk 


C  KSET  IS  THc  ROW  OF  K  PM  T  M  OR  PMTH  BEING  SCO  ICURRENT  LOAD  LEVEL) 

3C0  |F( KSET- 1  J 1 30  1  .  j J 9, 3 l > 

301  IF( KPMTNI KSET )) 302. 302. 303 
30?  KSET  *  KSET  ♦  l 
GO  TC  300 

30  3  IF(KPMTN{  *SEI  )  -4  )  30  4 . 302  .  3  0.? 

C  VARIABLE  (J24)  INDICATES  A  LOAD  CYCLE  II)  OR  WRITE  MEMORY  ON 

C  A  SAVE  TAPE  <3).  12)  I?  NOT  USED* 

30  A  JP4  a  KPMTMIK SE  T I 

IF I PMTMI KSET , 2 ) ) 342 . 342. 34  t 
34  1  GO  TO  {  30  5,  305,  423)  t  J24 
34  £  GO  1U  I  345.345,423),  J<?4 

30  5  IF< PMTMI KSET »  1 )- IPN9PMTMIK SET. 2» ) I  316. 309.  308 
34 S  IF  (  PMTMI  KSET  .  1  )-  |PM  *PMTM  <  KSET,  2  )  »  I  308.309.316 
309  KLU2  =  0 
308  DEL PM  =  PMTM(KSET,2) 

GO  T  O  15  4 
316  KLU?  =  O 
GO  TO  302 

319  |F( KLU2 >205. 205. 320 

320  KLU  2  =  0 

KSET  “  KSET  -  l 
IFlKSET  )  _  0  5 , 20  5, 32 i 
32  1  IFf  KPMTMI KSET  )  )  320.J20.30fl 

154  con.  ;.sue 
335  CONTINUE 

502  PM  =  PM  ♦  DELPM 

324  CALL  OUTPUT  |PM, PMTMI  KSE  T  .  3  )  ,  KL  U I  ) 

326  IF! KLU 2  I  327.  328. 327 

327  KLU2  =  KLU1 
32H  CONTINUE 

1FI KLU 2 ) ?SO. 250. 251 
250  CONTINUE 

C  LABEL  =  APPLIED  LOAO 

WRITE  CNOUT.22)  PM 
25  (  Cun'i  iiMWt 

C  SAVE  PRECEDING  CYCLE  VALUES  OF  EPBARN 

DO  152  II  =  I.NC 
152  EPBARP(Il)  =  EPBARN III) 

C  CALCULATE  NODE  STRESSES  -  MATRIX  SIGUK  -  FRAME  SIZE  105  X  t 

C  COMPUTATION  OF  STRESSES  AND  DEFLECTIONS  IN  THE  INELASTIC  RANGE 

C  REDUCE  SIJ4EPSUK  MUL  T I  PL  IC  A  T I CN  BY  SELECTING  THE  COLUMNS  OT  SU 

C  CORRESPONDING  TC  THE  NON-ZERO  ELEMENTS  OF  EPSUK 

DC  86  1  1 5 - ! . N  A 

86  1  SIGUKI  IS>  =  SIM(IS)*PM 
OO  631  15=1. NDE  * 

631  OE  FL 115)  =  OlM(  I5)*PM 
DO  641  14=1. NA 

IF  ( EPSUKI  1 4  )  .50 .0. 0  |  GO  TO  641 
DO  643  12=1. NA 

643  SIGUKI  121=  SIGUKI12)  ♦  S I J I  I  2 .  I  4 ) * E P SUK 1 I  4  > 

OO  644  1 3=1. NOE 

644  DEFL  t  I  3  )  =  DEF>_  I  I  3  )  «■  D  I J  l  I  3,  I  4  )  *E  PSUX  I  I  4  ) 

641  CONTINUE 

IF(  KLU 2) 254. 254,  255 
254  CONTINUE 


135 


o  n  n  n  n  a  no 


C  LA8a  DEFLECTIONS 

WHITE  IN0UT.23I 

Kftoe  *  noe/2 
PO  6  65  II  *  I.KNDE 
XNUE2  *  2*11 
KNDE1  *  KNOE2-1 

WRITE  IN0UT.Z4)  I  I  .  OEFL1  Kr<C€  I  )  .OEFL  (KN0E2I 
665  CONTINUE 
255  CONTINUE 

CALCULATE  MAGNITUDE  AND  SIGN  JF  EFFECTIVE  STRESS  AT  EACH  NOOE 
CALCULATE  EFFECTIVE  STRESSES  -  MATRIX  SGBARN  -  'A ME  SITE  35  X  I 
DO  166  17  *  I . NC 

SG0ARPII7I  ■  SGSARNtlT) 

M3  »  3*17 

M32  =  M  3—  2 

M3  I  =  MJ-I 

SGBARNt  17  >-SQRT<  ALI 23 H  t  7)  ASIGUK!  M3 2 ) **2- ALI  2  I  2€  17 )*SIGUK(  M3 2) *  SI 
I  GUM  M3I  M-AL  I  22  31  t  7)*SIGUK<  M  3  1 1  *  *2+  3 . 0*  ALF  AAA  I  I  7)  *SICUM  M3)  **2  > 

166  CONTINUE 

LABEL  =  EFF.  STRESSES 

CALCULATE  EFFECTIVE  INELASTIC  STRAIN  FOR  EACH  NODE  -  INTERPOLATE 
IN  TABLE  1TSIGN  VS.  TEPSN) 

DC  181  10  *  I.NC 

S0?»RP  **=  FF FFCMVF  STOF45  QF  PREVIOUS  CVCLE 
IF t SGBARN ( tal-SGBARPI ISIIAII.AOt.AOt 
EFFECTIVE  STRESS  IS  ABOVE  PREVIOUS  LEVEL 

SG BARM  is  effective  stress  of  last  cycle  tq  show  an  INCREASE 

A  O 1  IFt SGBARNt  I B I-SG3AR M { I  8 »  I  A 1 1 . A  02. A  02 
C  EFFECTIVE  STRESS  IS  ABOVE  KNEC  OF  PREVIOUS  DROP-OFF.  IF  ANY 

AO  2  CONI  INUE 

AO  3  S GB ARM (13)  =  SGBARN!  101 

ESUPRK  =1  SGBARNt  181/E)  ♦  F.PBARPIIB) 

I E  <  KL  U3.EQ.I)  GO  TO  670  i 

DO  I7i  I»  *  |,1I 

!F{  ESUPRK-TEPSNt  IFI  »  I  T 3.  I  f/.  i ?i 

171  CCN7 INUE 

GO  TO  998  ; 

172  BAR3GN  =  TS»GN<I9> 

lEt  SGBARN!  I fl  t  —  T5 I GN  f  111178.177,1 77 

177  ALI212!  1 8  I  *  2 . 0*  TAL  F  1 21  I  9  I 
ALI223II8)*  T  ALF 121  I  9 ) F  TALF231I9) 

ALl23ltl«»=  T  ALF 1 2(  ( 9 ) F  TALFJIII9I  i 

ALF  AA  At  I 8  )  a  TALFAAtlS)  j 

178  CONTINUE 
GO  TO  I7A 

173  KKK2  =  19  i 

KKK I  -  { 9  -  I  i 

STNRAT  =  I ESUPRK—  TEPSN ( KKK 1 1  I / 1 TEPSN t  KKK2 1 —TEPSN! KKK  t I  I  5 

BARS  GN  =  TSI  GNtKFK  1  )M  TSIGNt  KK<2»- JSt  GNI  KMMI  >  I  *STNRAT  ] 

IF!  SGBARN!  18l-TSIGNt2H176.i73.l75  f 

»7S  CONTINUE  I 

ALF  At  2  =  TALFI21KKK l »♦( TALK  I 2<KKK2)-TALF 12 C KKK1  )  I *STNRAT  \ 

ALFA23  =  TALF23I  KKKI  )  ♦  !  TACF2  3t  KK K2 > - T ALF 23  {  KKX1  >  )  *STNRAT  T 

ALFA3I  =  TALF3HRXXI  »♦!  TALF3HKKK2I-TALF31  IXKKl  I  )*STNKAT 

ALF AAAI  16  I =T ALF A Al  K K K I >♦( T ALF A  A f KKK2 I- 1 ALF A A < K KK I  )  »*STNRAT  » 

AL!2I2(I8»=  2.0*ALFA  12  ^ 
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AL  I  2231  18  I*  ALFA  1  2  ♦  AIFA23 
*L  l  201 l  I  8  I «  ALFA  1  2  *  ALF  A 3 1 

176  CONTINUE 
OO  TO  I  74 
670  CONTINUE 

05  ON  I  *  SGPARNII81 
00  674  11*1,10 

FIBSN  »  AA*9SGNi**EXP*BS0N|-e*E5UPRK 
F2BSN  ~  A A*CXP*  BSGN I  EKP— I . Ifl • 

BARS  ON  •  BSGN  1  -  FlBSN/FZBSN 
TEST  *  BARSGN/BSGN! 

BSC-N1  ■  BARSGN 
IF(  TEST  ,LT ..99999)  GO  TD  674 
IF!  TEST .GT .1.00001  >  GO  TO  674 
GO  TO  676 
674  CONTINUE 
676  CONTINUE 

174  EPBARNIISI  *  0.0  . . 

IF( SGBARNC  1 8  I  .  GT .TS I GNI 2 1 1  EPBARNI I B» *E SuPRK-8 ARSGN/E 
C  CALCULATE  TOTAL  EFFECTIVE  STRAIN  -  MATRIX  TEFSTN  -  FRAME  SI2E  35X1 

TEF'STNI IS)  «  ESUPRK 

C  CALCULATE  EFFECTIVE  STRAIN  CHANGES  -  MATRIX  DELjEPN  -  FRAME  33  X  1 

C  CALCULATE  INCREMENTAL  EFFECTIVE  INELASTIC  STRAIN 

DEL  EPN (  (9 )  ■  EPBARNI IBI  -  EPBARPI  IB) 

GO  TO  IBI 

C  ORQP— OFF  OF  EFFECTIVE  STRESS 

C  OR  STILL  BELOV  THE  KNEE  OF  PREVIOUS  DROP-OFF 

411  EPBARNI  |8>  *  EP8ARP 1  IS  I 

TEFSTNCiei  *  EPBARPI I8I+I SGBARNl 18) /E> 

OELEPNI  18  1  *  O  .0 
IBI  CONTINUE 

c 

c 

IF(  KLU3.EQ.0  »  GO  TO  08<> 

C  USE  OF  THE  RAM  BERG- OSGOOD  EQUATION  IS  OF«-V  VALIO  FOR 

C  ISOTROPIC  ANALTS IS 

IX'  t  TV  18  *  1 .  NC 
AL 12121 18 1  *  I .0 
AL  1  2231  IB  )  *  |.o 
ALC231II8)  *  1.0 

ALFA44I tat  =  1.0 

67V  CONTINUE 
680  CONTINUE 
C 

C  LABEL  *  EFF. PLASTIC  STRAIN 

C  LABEL  *  TOTAL  EFF.  STRAIN 


C  CALCULATE  NODE  STRAIN  CHANGE  -  MATRIX  DELE <*K  -  FRAME  Site  105  X  1 

00  191  ill  *  l ,NC 

TEMPA  =  OELEPNl S i l » /  SGBAKNlIll) 

Ml  =  34  lit 

M3Z  =  M  3—  2 

M31  =  M3-  1 

DEL  EPM  M321  =  TEMPA*t  AL  1231(111)  *  SI  5W  C  M32  ) -.  5*  AL1  2  1  2  (  1 1  1  )*S  IGUKIM31 


DFlF  PM  N  J  I  l*TtMPA#l  AL  I  2 2  3(  II  H  ►Sli.UKlMJI  )-.V  AH  2 1  2  (  I  I  1  »  *S  I  GUK  t  M3  2 

I  )  J 

OCLtPKlMJl  «TEMPA*<  3.0*ALFA54;  I  tl)*SIGUMNJ>) 

191  CONTINUE 

C  CALCULATE  NnO«=  CLAST  1C  STRAIN  -  MATRIX  EPKtIK  -  FRAME  SS/L  105  X  1 

C  CALCULATE  NOOE  POINT  STRAINS 

OO  192  123M.NA 

EPS  US  (  12  3)  «  EPSOM  1231  ♦  LEPM  I  23  # 

192  CONTINUE 

C  LAB  9-  *  EEF. STRAIN  CHANGES 

C  LABEL  *  NODE  STRAIN  CHANGE 

<  LABEL  =  NODE  I NEL AS . STR A  I N 

C  CALCULATE  TjTAL  NOOE  STRAINS  -  MATRIX  TOTEPS  -  FRA.E  S  I  Zfc  105  X  I 

00  20  1  I  14-=  l.NC 
M32  *  3*1  14  ? 

M3  l  r  3*  l  14-  1 
M3  s  3*IH 

T0TEPS(M32)=CPSUK  <  M  32  >  ♦  S  1  GUK I  M  32  I /E  -GNU*  SI  G UK  (  NT  i  I  At 
TCT  EPS!  M  J  I  I-iEPSUK  <  M  31  I  *SI  GUK  (  M3I  I  /£  -G  NU*  SI  GUM  N32  I AE 
20  1  TOT  EPS  (M3  >*EPSUN  (M3  2+S1GUMM3  1/SHRMOO 
IF<  KLU2J262. 26  2. 2*3 

262  CONTINUE 

C  LABS.  =  TOT.  NOOE  STRAINS 

wr i re  ( nout, 4 1 1 
WRITE  (NOUT. 421 
00  250  18  =  I.NC 

J  3  *  3*18 
J2  =  J  3—  1 
J  I  =  J  3-  2 

TRITE  (NOUT, 46)  1 8  .  S  I CUK I  J  1  »  .  £  !  GUM  12  )  .  S.  G  UK  t  J3)  •  TOTEPS  (  Jl  )  . 

I  TOTEPSI J 21 . TOTEPSl  J 31 

258  CONTINUE 
WRITE  (NOUT. 431 
WRITE  ( NOUT . 44 ) 

DO  2  59  IK  =  l.NC 
J  3  =  3*18 

.12  -  J3-! 

3  1  =  J  3—2 

WRITE  IN0UT.46)  « 8 . E PSUM J I)  . E P SUK I  J2 I  .EPS UK ( J3I  .OECEPK ( Jl  ) , 

l  OELEPK.:  J2  ).OEl  EPK(  J  31 

259  CONTINUE 
WRITE  INCUT. 45) 

DO  260  1 3  =  l.NC 

WRITE  (NOUT, 46)  18.  SOBARNl  | 8)  . TtFSTNI I  81 .OELEPNl I  0 )  ,EpB ARNI I  8) 

260  CONTINUE 

263  CONTINUE 
IE{KLU2I260,260, 269 

26  8  C0.9TIN  E 

WRITE  (NPJT.31 1  K.PM 
269  CONT INUL 

IF(  K „L E.( KREF *20  )  )  GO  TO  422 
FREE  =  K 

CALL  OVRT IMS KOOOFX > 

C  KOOOFX  =  l  TO  FORCE  AN  EXIT 

GO  T0< A2  1. 422  ).KOOOFX 
422  CONT  INUE 
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GO  TO  151 

C  STATEMENT  421  IS  REACHED  IF  THE  RUNNING  TINE  IS  ONc  MINUTE 

L  BEL  OX  THE  1IME  ESTIMATE 

421  IF(  KLU21423.42 3.  20B 
423  CONTINUE 
2D  5  CONTINUE 

CALL  OV'TT  IMIKOOCFX  ) 

GO  IO( 207. 2091. FOOOEX 
209  |F( 324-31210,207. 210 

20 r  CONTINUE 

lex  it  -■  s 


RETURN 


210  CONTINUE 
1EXIT  a  6 
RETURN 

203  KERRS*  =  2 

C  KERRS*  SET  TO  2  TO  MAKE  KLU  =  0  AND  PRINT  A  CTCLt 

GO  TO  131 
998  CONTINUE 

WRITE  (NOUT.12)  ESUPRK « SGBIRN1  I  8 ) 

WRITE  CNOUT.13I  K.IS.PM 
GO  TO  20S 

12  FORMAT ( 46M  VALUE  NOT  FOUND  IN  TABLE  FOR  EPSILON  BAR  N  *  .E15.6. 

119H  (  SIGMA  BAR  N  *  .EIS.8.2N  I  > 

13  FORMAT  I  16H  CVCLE  NUMBER  *  .I5.2PN  £L6  Mfc  NT  INDEX  *  .I4,17h  LO 

I  AO  LEVEL  -  .F9.2I 

21  FORMAT!//  IX, 4A4, A2. 5!  IPE 1*. 71 /{ 19X.5E I  6. 7 II 

22  FORMAT  ! // 2  t  M  APPLIED  LOAD  .FI2.2! 

23  FORMAT! //9X. 30HDEFL EC T I  ON S  AT  GEOMETRIC  NODE  S//1  4  X  .4HN0DF  ,6X 
1,7  HDEL  T  A  X , 9 X ,  7HDEL T A  V| 

24  FORMAT c  | 5X . 14. 2E Ift. 7  ) 

^  «  r  aoij  at  0  b  mo  ,  J5 , 2TH  C  S  ft  ^  rj  a  r%  ■  ;po  .  ^  ) 


*  1 
42 


4  3 
44 


FORMAT!  /22X.  I 3HX00E  STKE SSE S . 3 3 *. I 8H TOT AL  NODE  STRAINS! 
FORMAT ( 93H  NODE  SIGMA  X  SIGMA  Y  TAU 

I  EPSILON  X  EPSILON  Y  GAMMA  XY  ) 

FORMAT!  /  187. 221-riOOE  INELASTIC  STRAIN  .29X.18HNOOE 
FORM  AT  I  98  H  NODE  EPSILON  X  EfSLON  Y 


STRAI  N  CHANGE  ) 
GAMMA  XY 


I  EPSILON  X  EPSILON  Y 

43  FORMAT! /27X, 39HT0TAL 
ITIVE  EFFECTIVE 

2TRESSES  STRAIN 

43  FORMAT t  I  X • I  3.  I  X. 6(  1PE 16. 71  ) 
END 


gamma 

EFFEC  T: VE 
strain 

CHANGES 


XY  t 


EFFEC  TI VE/9X.56HEFFE 
PL  AS  T I  C/64  H  NODE 
STR.Y  '  N> 


'J  V> 


r>  n 


SUBROUTINE  l)V«TI«(KOCOKX) 

C  SUBROUTINE  TO  TEST  THE  SYSTEM  CLOCK  AND  FORCE  li^RAlToN  OF  A 

C  REST  ART  ABLE  SAVE  TAPE  rfhFN  THE  TIME  ESTIMATE  IS  REACHED 

COMMON  /COMA/  KLU3«KlOA,KLU5. KLU6.NA.NC  .ND£ , INTAPE  »NI N ,NOUT .NAUX 

2  *  * _ _  _*SM_  .  RUNE  ST  .  E  •  EXP  ,  ST 

3  •  GNU  »  ShRMOD  .  PM  '  . ~ . ~  . . . "  ‘  .  . 

C  KO 0 OP<  =  I  TO  TERMINATE  THE  RUN 

<■  -  2  TO  LET  THE  RUN  CONTINUE 

HM  r.  RUNEST  *600  ■ 

N  a  0  '  . . .  " . * 

TIMING  ROUTINE  DISABl.CC  PENDING  INFORMATION  ON  WPAFB  CLCCK  ROUTINE 

KOOOFK  =  2  “  ~  .  ' .  * 

IT  -  0 

IF(IT.EQ.O)  GO  TO  102 
END  OK  PATCh 
IT  =  ICHRON(N) 

KOOOFX  =  2 

IM  IT  .GY  .90000  1  GO  TO  102  "*  " 

IF(  IT  .LT  .L  IM  )  GO  TO  100 
KOOOFX  =  1 

100  T I  =  IT 

TIME  =  TI/600. 

_ WP l T  P _ ( NOUT .  1  )  TIMEeK 

10  2  RETURN' . .  ~  . . . . . . .  . 

1  FORMAT  I20H  ELAPSED  TIME  MEADS  .  F 1  0  .  A  ,  1  8H  MINUTES  ON  CYCLE  .151 
END  . . 


HOTKi  Subroutine  0VKTH4  1b  a  portion  of 
tho  root  eegioent  of  the  program. 


SUBROUTINE  OUTPUT!  VALUE  1  »  STEP  I  .KLU1  ) 

C  THIS  SUBROUTINE  SETS  KLJ1  *  0  IF  THE  CURRENT  CYCLE  IS  TO  BE  PRINT E 

VALUE  *  ABS! VALUED  .  . 

STEP  «  AB3ISTEP1I 
102  IF!  VALUE-STEP)  131*  100*  100 
100  NTESTI  »  1  VALUE/STEP  )•  I.  00001 
NTEST2  *  ( VALUE/STEP )*.99B 
IF<  MTE5T I— NTEST2) 131 *130* 131 

130  KLU t  ■  0 
GO  TO  135 

131  KLU  l  *  I 
135  RETURN 

END 
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APPENDIX  E 


CONTACT  PROBLEM  -  LOADED  HOLE  BOUNDARY  COMPUTER  PROGRAM 


(a)  Program  Description 

This  is  a  brief  description  of  the  program  for  doing  a  nonlinear 
contact  problem  of  a  symmetric  single  hole  plate  structure  which  is  loaded 
along  its  axis  of  symmetry.  The  program  can  acconxnodate  varying  amounts 
of  clearance  or  interference  and  up  to  twenty  points  in  contact  on  the 
semicircle  as  well  as  up  to  ten  different  load  levels. 

The  program  was  originally  written  and  debugged  on  the  IBM  1130 
machine  and  then  converted  to  the  IBM  7094.  It  is  fully  operable  on  the 
Gnucman  IBM  7094  system  and  can*easily  be  expanded  to  handle  more  contact 
points  around  the  periphery  of  the  fastener  and  plate  hole. 

A  constraint  on  the  program  as  it  stands  at  present  is  that  the 
contact  points  must  be  numbered  consecutively  from  the  contact  point  on 
the  center  line  at  the  bottom  of  the  hole  to  the  point  on  the  center  line 
at  the  top  of  the  hole  courterclockwise. 

The  program  consists  of  a  main  program  and  two  subroutines,  one  for 
reading  and  slacking  input,  and  the  other  for  performing  the  calculations. 

A  matrix  inversion  routine  "LINEAR"  is  included  to  avu  depone! snc 6  on 
a  library  routine. 

(B)  Sequencing  and  Details  of  the  Data  Cards 

The  symbols  used  in  the  program  for  various  items  of  input  data  are 
listed  on  page  205  and  are  shown  on  the  sample  keypunching  sheet  page  209  • 

The  data  cards  are  used  in  the  following  sequence,  immediately 
after  the  $DATA  card  required  by  IB  SYS : 

1.  A  load-fit  card  (FORMAT  23)  containing  a  clue  K,  a  load 
QIN(l),  a  fit  FITIN(l),  and  a  60  character  title  to  be 
printed  for  Identification,  The  c?.ue  K  is  ignored  in  thir 
card.  Up  to  9  additional  load-fit  cards  in  the  same 
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format  may  be  provided.  They  are  used  in  a  slightly 
different  manner.  This  title  is  ended  by  one  completely 
blank  card . 

2.  The  four  data  matrices  are  next.  They  must  be  in  proper 

sequence,  an  shown  below.  Each  has  a  header  card  (FORMAT  l), 
one  or  more  data  cards  (FORMAT  2)  and  a  blank  card  to 
end  it.  If  one  of  the  matrices  is  null,  it  must  be 
represented  by  &  blank  title  card  and  a  blank  card  to 
represent  the  end  card.  Required  sequence  is  as  follows: 

a)  Matrix  A  -  influence  coefficient  for  unit  radial 
loads ,  maximum  size  20  x  20 

b)  Matrix  DL  -  radial  displacements  around  hole  for 
transfer  loads,  maximum  size  20  x  10.  Note  that 
sequence  of  loads  (columns)  cunt  correspond  to 
sequence  of  load-fit  cards  already  read  in. 

c)  Matrix  THETA  -  angles  to  defined  points  around 
hole,  maxissnn  size  20  x  1 

d)  Matrix  DELB  -  radial  displacements  around  hole  due 
to  bypass  loads,  maximum  Bize  20  x  1.  This 
matrix  may  be  null  as  previously  indicated.  All 
others  raubi.  be  provided  to  give  meaningful  results. 


sols  and  Format  of  the  Data  Cards 


(1)  Load -fit  cards  -  FORMAT  23 
Cols.  Field  Symbol 


1  II  X  A  clue,  ignored  in  the  first  card.  In 

the  other  cards,  any  digit  except  0 
Indicates  a  nerw  fit  is  provided  (a 
blanit  lit  means  0  clearances)  If  K  = 

0,  the  previous  fit  is  re-used. 

2-10  E9.4  Q  or  This  is  the  load  to  be  applied  with  the 

QTTv 

corresponding  column  of  matrix  EL.  A 
value  must  be  provided.  If  none  is 
provided,  this  is  treated  as  a  blank 
card  (end  of  load  table). 
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Cols. 


Field  Symbol 


11-20  ElO.t  AKFIT  or  This  is  the  fit  of  the  pin  in  the  hole. 

FITIN  A  positive  value  indicates  an  interference 
fit.  A  negative  value  indicates  lack  of 
fit  (sloppy  fit).  Zero  indicates  exact  or 
sliding  fit.  Fit  is  always  accepted  from 
the  first  load-fit  card .  It  i6  ignored  on 
the  other  cards  unless  Column  1  is  punched 
to  show  that  a  new  value  of  fit  is  provided. 

This  new  value  is  then  used  until  a  super- 
ceding  value  1 8  provided. 

i 

21-80  30A2  TITLE  A  title  or  caption  that  is  printed  to 

identify  the  run.  In  addition,  the  last 
8  columns  are  used  to  identify  the  punched 
output  from  this  run. 

The  title  is  used  from  the  first  card  only. 

(2)  Data  Matrices  Header  Card  FORMAT  1 

Cols.  Field  Symbol 

1-t  It  NRO'wS  The  number  of  rows  in  this  matrix.  The 

number  of  rows  in  matrix  A  sets  the  size 
of  the  problem. 

5-8  It  I\'C0Lo  The  number  of  columns  in  this  matrix.  The 

numbei  of  columns  in  matrix  DL  must  agree 
with  the  number  of  load-fit  cardB  read  in. 

9-80  Ignored 

(3)  Data  Matrices  -  Data  Cards  FOHMaT  2 

Cols.  Field  Symbol 

1-t  It  MR(l)  Row  index  for  the  first  element  in  this 

card.  If  this  field  is  blank  or  zero,  the 
card  is  considered  bland  (end  of  matrix) 
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Cols. 

Field 

Symbol 

5-8 

14 

MC(1) 

Column  index  for  tl.e  first  element  in 

this  card. 

9-23 

24 

E15.7 

IX 

EL(1) 

The  first  matrix  element  in  this  card. 

Ignored 

25-28 

14 

MR(2) 

flow  index  for  the  second  element  in  thli 

card.  If  this  field  ie  blank  or  zero, 

the  element  ie  ignored  and  the  program 
looks  at  MR(3) 

29-32 

14 

MC(2) 

Column  index  for  the  second  element 

in  this  card . 

33-47 

48 

E1J.7 

IX 

EL(2) 

Tne  second  matrix  element  in  this  card. 

Ignored 

49-52 

14 

MR(3) 

Row  index  for  the  third  element  in  this 

card.  If  this  field  is  blank  or  zero, 

the  element  is  ignored  and  the  program 

reads  the  next  card. 

53-56 

IU 

MC(3) 

Column  index  for  the  third  element  in 

this  card. 

57-71 

72 

•jro-SC 

E15.7 

IX 

lfA2 

EL(3) 

The  third  matrix  element  in  this  card. 

Ignored 

Igncr 60  on  input*  For  pouch  output. 

thiB  takes  8  columns  of  Identification 
from  the  title  card . 


The  last  card  of  a  matrix  should  be  completely  blank  (tested  in  Cols. 
1-lt  aB  an  integer  field).  Note  that  the  program  does  no  checking  on  the 
validity  of  elements,  their  Indices  or  their  sequencing,  other  than 
checking  the  row  index  for  a  zero  or  blank  as  described  above  (negative  row 
index  ie  considered  zero).  Specifically,  no  checking  is  done  for  duplicate 
indices,  column  index  of  zero,  elements  out  of  sequence,  element  indices  out 
side  of  the  array  or  elements  in  row  or  column  sort.  Valid  input  is  the  re¬ 
sponsibility  of  the  user.  The  ability  to  read  matrices  in  row  or  column  scr 
and  one  to  three  elements  per  card  is  convenient,  but  requires  careful  data 
preparation. 
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(D)  Punched  Output 

Upon  finding  the  points  in  contact  for  each  applied  load,  the  program 
calculates  and  prints  out  (the  center-line  contact  force),  and  then  the 
X  and  Y  components  of  the  force  at  each  point.  It  then  punches  out  cards 
containing  these  values  In  FORMAT  2  for  input  as  applied  loads  to  further 
analysis  programs.  These  cards  carry  identification  in  Columns  73- 80  from 
the  input  title.  Columns  73-80* 

Hie  punchout  is  described  as  follows.  The  row  number  corresponds  to 
the  load  case  (columns  of  matrix  DL).  Column  1  Is  the  center-line  contact 
force.  Columns  2  and  3  are  the  X  and  Y  components  at  Point  1,  columns  4 
and  5  a re  the  X  and  Y  components  at  point  2,  etc.  Thus  tne  punched-out 
load  matrix  is  N  rows  by  M  columns,  where  N  is  the  input  number  of  load 
cases  and  M  is  2  times  the  number  of  points  around  the  semicircle,  plus  1. 
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APPENDIX  F  CONTACT  PROBLEM  -  LOADED  HOLE  BOUNDARY  PROGRAM  FLOW  CHARTS 


MAIN  PROGRAM 
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INKJT  -  SUBROUTINE  HHINP 


Entry 


Clear 

Arrays 

Read  Title  Card 
Initial  Load 
Initial  Fit 

Print 

Title 

Increment 
Load  Counter 


Store  Load 
in  Table 


'  Was  ^ 
Clue  K 
Blank 


Read  Next 
Load  and  Fit 


Was 

Load 

Blank 


?! I 


Load  Count  «= 

***  4IVOp»* 

(LDCNT) 


Reed  Header  for 
Matrix  A  -  Infl. 
Coeff.  for  Unit 
Radial  Loads 


Set  Problem 
Size  =  Rovs 
In  Matrix  A. 

(NOKDR) 
Write  Label 


Head  Matrix 

Text.  Stack 
in  Array  A 


Read  Header  for 
Matrix  DL  -  Radial 
Displ.  Around  Hole 
for  Transfer  loads 


No.  of  Load  Cases 
—  Columns  of  PL 
(LPCAS) 

Write  Label 


Read  Matrix 
Text.  Stack 
in  Array  DL 


Read  Header  for 
Matrix  Theta  - 
Angles  to  Defined 
Points  Arouud  Hole 
Write  Label 


Read  Matrix  Text 
and  Store 

Theta 

[Col.lj 

-Angle 

Theta 

,Col.2; 

1-3  in 

Theta 

[Col. 3' 

•Cob 

Read  Header  for 
Matrix  DBLB  Radial 
Displ.  Due  to 
Bypass  Loads. 


Read  Matrix 
Text,  Store 
in  Array  DELB. 


Write  Heading 
for  Matrix  A 


Write  Out  Matrix 
A  Rov  by  Rov 
for  Cheeking 


CALCULATION  -  SUBROUTINE  HHR'JN 


Entry 


Start  Overall 
Loop  on  Load 
Cases  (  DO  85O- 


Invcrt  the 
Cone  onscd 
Array  (Using 

SUBR.  LINEAR) 
and  Scale  l>ask 


Set  Clues,  Set 
Loac  and  Fit 
From  Tables. 
Initial  Trial  Size 
=  Full  Problem 


Calculate  A 
Trial  Load  Vector 


Virite  Headings 
for 

Displacements 

Calculat 
DEIA  Rad 

e  Vector 
ial  Displ 

Due  to  I 
Fit 

nitial 

Calculate 
Vector  VA 
Total  Displ. 
Vector.  Print 
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Start  Loop 
for  Iterations 


Frint  Count  of 
Iteration,  Clue 
Vector  for  Trial 
Solution,  and  Size 


Condense  and 
Scale  Matrix  A 
into  Array  DE 


Tension  loads 
Are  Not 


)  Are  Hot 

i  Possible  Across  -* 
|  the  Contact 

!  Surface 

1 _ -J 


- [A]~ VA } 


Count  Negative 

Values  in  (PRl 
and  Stack  in 
Cleared  Victor  (FCl 


Calculate  Radial 
Displacements 

(delta1= 
[va]+[a J  (PC) 


Search  bnLTA 
and  Zero  out 
all  Positive- 
Values 


Transfer 

(DELTA'! 

Values 

into 

{DELTB} , 

Find 

Maximum 

[  Negative 

Value  1 

Set  Tsst  Ljrnit 
=  1/20  of  Max. 
Negative  Vale  » 
in  { DELTA 1 
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APPENDIX  Q  FORTRAN  LISTING  OF  ELASTIC  CONTACT  PROBLEM  PROGRAM 


N I  N.NOUTH .M3UT  .LDC.NT  . LDCA S .NOROR . Q »F I T 
UDA-ICN  A  (  23  .2  3)  ,OL(2M,  10)  .DEL  A (20)  .DELSC2C  >»DE(20  .2C  )• 

1  ‘-W(  ?•.•*>  *  V A  (  2 O )  ,KK(20)  .KCP<20)  • 

2  '"5<  :  >  ,  vc( 3)  .EL( 3  > .LVA(20  >  .LVR( 20  ) 

C?Mm;.n  °C ( 2C )  *  DELTA  (  2^  )  »  THET  A  (  20  »  3  )  .  T  ITLE(  30  ) 

C  iMvi  JN  UIN(  10)  .FITIN(IO) 


S'?  4 1 N  -  b 

•JOurc-  =  7 
MUT  =  6 
CALl.  rtHlN? 

IP  (  LDCNT-LDCAS  )  23J.236.233 

23.'  WAIT!  (\0UT.33) 
c-ll  exit 

2  3  6  •I'l'H  1  Nur 

Caul  HHf.tJs 
60  T  )  <<*> 

l~'.  JMA.T<;  3H  INPUT  EWRON-LOA9  CASES) 


•‘NO 


c 


SUBMIT  I  ML  MH1NP 

COMMON  Ml N.NUUTP.NOUT .LOCNT .LUCAS .NOKDR. Q.FIT 
CO.'"'  >N  A(2t  .26)  .0LC20. 1C  )  .DEL  A  (20)  .  DLLB(  20  )  .DEC  20.20)  , 

1  -•  <(  ?.  >  )  .VA(  20)  ,Hil  (  20  )  ,KEP  (20  )  . 
j  '  ,(  i)  .  MC  (  3)  .  CL(  3  )  .  LVA(  ?C  )  *  L  VO  (26) 
t  .M  .  JN  JCCt’i’  )  .  DEL  A(  2.>  )  .THETA  (20  .3)  .T  ITLC(  30  ) 

-iM  •  4  01N(  1*1  .KIT  IN  (  1  0  ) 


00 

Ol 

I 

“I  t 

,  2» 

i  *p  L 

..  ( 

) 

r 

1  •  •* 

)  ..  L 

< 

) 

s 

0.0 

t';. 

< 

) 

rz 

1.0 

«/• 

< 

) 

- 

1.0 

<A  = 

i  i 

-  \ 

<y.  i  - 

<  i 

r. 

r>Z 

I 

) 

=  > . 

r> 

or.t 

T  * 

1 

)  : 

=  ’• 

C 

*.n 

•■« 

r( 

■  s 

t  .3 

T  r  l: 

•  T- 

< 

i 

t< 

)  * 

f.  • 

y. 

J 

J 

-  1  . 

1  < 

OL(I.JJ)  = 

'  1  J-l  .2  • 


•'  (  I  .  J  )  =  ■-  *' 

v  .  (  I  .  J  >  -  <•  ' 

M  C.INW-UL 

>i  •>*  A.,  -r-C  N'J#  CLUA>* 

-  (  ’41N.21)  K.OI-K  1  )  .m  IN(  1  )  ,  (T1TLE(  T  )  .1  =  1 .30) 
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p  ITC__  (NOUT, 32)  (  T I  TLfc  <  I  >  ,1  =  1  ,30  > 


93  READ  (  N  J  N  »  2  J  )  K.J.AKFIT 

IF(0)  94,97,94 

94  !  =1+1 

01N( I )  =  Q 
IF(K)  96.95,96 

95  FITIM(I)  =  FlTlN(l-l) 

GO  TO  93 

.96  FITIN(I)  =  AKFIT 
GO  TO  93 
97  CONTINU". 

LDCNT  =  I 

C  RE.  AL'  IN  MATRIX  (A) 

READ  (  N  I  N  «  1  )  NROWS.NCOLS 

C  PFOFlF.M  size  is  set  by  THE  mumper  OF  ROWS  IN  INPUT  MATRIX  (A) 

NGROk  =  NROWS 
WRITE  ( NOUT  ,6)  NPOWS.NCHLS 
WRITE  (NOUT, 7) 

"106  READ  (  N  IN  ,  2  )  < MR ( I).MC( I ) ,EL( I > , I =1 , 3) 

IF  (  MR  ( 1 ) ) 130,130.110 
no  DU  120  1*1,3 

IF  <M< ( I) ) 120*129 ,115 
115  NROw  =  MR  < I  ) 

NCOU  =  MC(I> 

A(  NR  0  W  ,  NC  OL  )  *  bL  (  1  ) 

120  CCNTINUf- 

WRITE  (NOUT, 13)  (MR(1 ) , MC  ( I ) ,EL( I ) , 1=1,3) 


% 


\ 


% 


<»n  r.i  ns 

130  CONTINUE 

WRITE  (NOUT,  5) 

P  CAD  IN  M A  TP  I  X  (OL) 

REAL*  (NIN.l)  NFUAS.NCOLS' 

WRITE  (  M'JUT  ,6)  NR  OKS  ,  NC  OL  S 
WRITE  (NOUT.fi) 

LUCA  5  =  NC  OL  S 

140  R  h  AD  ( N IN , 2  )  ( MR (I  )  *  MC (I )  ,EL(  I) .1  =  1  ,3) 

1  F  (  MR  (  1  )  )  1  tiO  ,  1  HC  ,  1  50 

ISO  IV 1  170  l  =  i  .3 

U  (MW  (  I  )  )  17.1,170, 16) 
loO  NRO*  =  MR ( I ) 

NC  JL  =  MC  (  I  ) 

OL  (N  (0  W.NCOL  )  =  F  C  (  I  ). 

17')  CUNT  I  NUL 

Wi-  ITt  (NOUT. 13)  (  MR  (  I  )  ,  MC  (1  )*EL(  I),  1  =  1,3) 

•JO  V.)  14> 


lt*M  CONTI MUr 

Wi-  1Tb.  (NOUT, 5) 

C  k:  A.)  IN  MATRIX  (THETA) 

R  t  AD  (NIN.l)  NROWS.NCOLS 
WCIT-:  (  M  TUT  ,  6  )  NWCWS.  NCUL5 


21’ 


4R  ITS  (NOUT .9)  "•  * 

l*JO  RGAO  (  N  I N  ,  2  )  (  MR  (  I  >  ,MC(  I  )  »EL<  I)  «  1*1  »  3) 

I F ( MR (  1 ) ) 2 JO • 230  ,200 
200  DO  220  I *1 *3 

IF (MR ( I )  )  220 .220  *2 1 0 
210  NRO#  *  MR ( I  ) 

vHfcTACMMOW  .  1  1  a  EL('i')  “ .  . 

ANGLE  =  .01 74533*EL(I  1 
THETA(NR0W.2)  a  SINK  ANGLO 
THETA ( MRU  4  *31  a  C0S( ANGLE  1 
220  CONTINUE  *' 

*WITK  (NOUT, 13)  ( MR ( I  1 «  MC ( I ) »  EL (  I),I«1»3) 

GO  TO  190  ""  . .  -  -  . 

230  CONTINUE 

•RITfc  ( NOUT  *51 
C  READ  IN  MATRIX  (DELB) 

READ  ( N I N  *  1 )  NROVS.NCOLS 
•RITE  (  NOUT  «  6)  NROMS.NCOLS 

. WR  ITE  ( NOUT  » 10 J  . . * 

240  READ  (NIN.2)  ( MR < I ) ,MC (  1 1  .EL (  1 1  •  I » 1 • 3 > 

IF ( MR (1)1  2  SO 1 2 80 *2 59 
25?  DO  270  I  a  1 ,3 

IF (MR (Ill  270.27t.26d" 

260  N-10*  a  MR  (  1  ) 

DEL5!  (  NRGM  }  »  EL (I  I . 

270  CONTINUE 

•RITE  (NOUT, 13)  ( MR ( I > , MC< I). EL( I > . I « 1 . 3  * 

GO  TO  240 
280  CONTINUE 

•RITE  (N0UTP.5) 

•RITE  (NOUT. 51 

C  FOUR  INPUT  MATRICES  ARE  NOW  IN  CORE 

4PITG  (NOUT. 7) 


DO  290  I  a  1 • NONDR 

•RITE  (NOUT. 16)  ( A ( I • J) • J«I .NORDR ) 

290  CONTINUE 

•RITF  (NOUT .5) 

RETURN 

1  FORMAT (214) 

2  F0*»MAT(3(2I4. El  5.7,1  X)  .4A2) 

5  FORMAT ( 1H  /1H  ) 

A  FORMA  T ( 1 3H  INPUT  MATR I  X .6 X • 14 . 2H  X.I5) 
7  FONMAT( 1H4 . 1 3X . 1  HA > 

0  FORMAT! 1H+ ♦ 13X.2H0L) 

9  FORMAT ( 1H+ , 1 3X .5HTHETA ) 

10  FORMAT! Irt+ , 13X.4HDELB) 

13  FORMAT! IX. 3(214, lX.b)  6.7)1 

16  FORMAT!  /I  Xt7F.l  5.  7/2X.  7E  15.  7/3  X . 7E 13  •  7 ) 

23  FORMAT! I  1 ,£9.4, E10.4  J0A2 ) 

32  FORMAT! 1HI .4X.30A2) 


r>  o  n 


SUBROUTINE  MHPUN 

l>1  MEN  SI  UN  0ELTH(2Q)  .3LVB<  20  ) 

0  t  ME  NS  I  ON  1.00(20)  .SCALE<20) 

COMMON  NI N.NOUTP.NOUT.LOCNT .LDCAS . NORDR. Q.FIT 

CO  MM')N  A  (  20  .20  )  •  DL(  2  0  .  10  )  .  bet.  A <  2OV.OEL0(  26T«  ££(  20  *  20  )  • 

1  PR(20)  . VA (20)  .KE C20)  »KEP(20)  « 

2  MR(3J .MC(3) .CL(3).LVA(20> *LVQ(20) 

COMMON  PC ( 20 1 • DEL  A( 20 ) ♦ THETA ( 20 . 3 ) .T ITLE ( 30 > 

COMMON  QIN(  S0{  .FITJN(IO) 

C  THIS  IS  THE  STARY  OF  THE  OVERALL  LOOP  ON  LOAD  CASES 

DO  »50  LOOP  =  l.LDCAS 
KNT  =  NORDR 

UNTO  IS  THE  CLUE  OF  SIZE  FR CM  THE  SECOND  ITERATION  BACK 
k NTC  IS  THE  CLUE  OF  !ZE  FROM  THE  THIRD  ITERATION  BACK 
BOTH  USE 3  TU  CHECK  FOP  OSCILLATIONS  IN  THE  SOLUTION 
KNYS  =  25 

KNYC  =  30  . 

Nf-  INL  =  0 
FIT  =  FlT!N«LOOP| 

0  =  QtN  (LOOP  11 

WRITE  (  N OUT  » 24  )  ( TITLfc  (  I  )  *  L= I .30 )  .0 

IF(F IT >101 .103.102 

101  WRITE  (NOUT.2S)  FIT 
GO  TO  104 

102  WRITS  (N0UT.26)  FIT 
GO  TO  104 

1C3  ««ITF  (N0UT.27) 

104  CONTINUE 
C  CALCULATE  MATPIX  (OCLA) 

DO  240  I  =  l .NORDR 

DEL* (  !  )  -  FIT  -  FIT*THETA (I  .3) 

240  CONTINUE 

C  FORM  (DL)X«L)  ♦  (DELTA  A)  ♦  DELB 

DU  3<  n  I  -1.  NORDR 

3'>0  VM1I  =  DKLAOJ  ♦  DCLtf  (  I  >  ♦  DL(I.LOOP) 

WRITE  (N0UT.28)  LOUP 
DO  305  1=1. NOfcDP 

WRITE  (NOUT.IO  I  .DEL  A  (  I  )  *DFLD(  I  )  «DL  (  1  .LOOP )  *  VAC  £) 

JR  5  KE  (  I  )  =  I 

WRITE  (NUUT.5) 

C  THlb  IS  THE  STAPT  OF  THE  MAIN  LOOP 

KLOOP  =  1 
31.)  CONTINUE 

C  KNT  lb  THfc  NUMBER  OF  NEGATIVE  VALUES  IN  PRECEDING  (PR) 

C  A.f.kAY  ( F,t£  )  INDICATES  THE  ROWS  AND  COLUMNS  OF  (A)  TO  BE  COMPACTED 

WRITE  (N0UT.1S)  KLOOP . ( Kt ( I > . 1= 1 . 20 )  .KNT 
C  condense  (a>  fuw  by  puw 
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on  rs  r\  o 


k.  =  i 

Ml  320  1=1. KNT 

M  =  KC< I) 

)U  3  i  •„»  J-l  .MOPDfi 
;>C(<.J5  =  A(N.J)  *1.0E+07 

313  CONTINUE 


K  =  K  ♦  1 

J2T  CONTINUE 

C  NOW  CONDENSE  (A)  COLUMN  oY  COLUMN 

K  =  1 

00  340  T=l.KNT 
N  =  Kfc  (  l.i 
OU  335  J-l.KNT 
:>L  (J.O  =  TE  (  J.  4) 

335  CJNTIN'Jl- 

K  =  K.  *  1 

340  CONTINUE 

C  NO  W  INVENT  THE  CONDENSED  ARRAY  IN  COE) 

CALL  LINEAR  (DF.OE.K  T .C . 0 , LOC • SC ALE « 20 ) 

C  InVu.ssC  IS  IN  ARRAY  COE) 

OC  345  I  =  1 • KNT 
IF (cOC ( l )) 345.350.345 
345  CONTINUE 
on  T  )  360 

353  4RITE  (NOUT.ll)  1 

GO  TO  fiC!> 

3o"  C'JNTINUL 

on  3 1>  J  1  =  Is  KNT 

UO  5o3  J  =  J .KNT 
3fc<?  OL  C  I  •  J  )  =  J£C  1  .  J)*1.0E+07 

.TO  36H  I  =  1  » NQRD  R 
363  OK ( I  )  =  T  •  0 

i)C'  ^  71  l  =1  .  KNT 
*1-0(1)  =  0 
no  7 1-  j  =  i  . knt 

J7S  o„ ( l  )  -  pH {  I )  -  DE  <I»J)*VA(J) 

C  M TP.'  [  j  THE  COUNT  OF  NCGATIVt  VAI.UCS  IN  P 

NT°C  •:  0 

UTt.)  15  rue  COUNT  OF  POSITlVt  O”  ZEPCf  VALUES  IN  DELTA. 

,.j  i  tm  VALULS  SMALLER*  THAN  ONE-TENTH  THE  LARGEST  NEGATIVE 
VAl.Ui  ALSo  SET  TC  ZEFO 
NT^o  =  n 

Nr'O  =  '• 

v)5LMX  =  J  •  > 

T‘  ST  (Qc|  O H  Nu  G ATI  VK  VALUED 
ST  A'.  T  » :;TL  P  1  ’ 
a,  IT  --  (.j  HIT  .14)  LOO'3 
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DO  5 0 5  t  ■=  l  .NOROU 

50  5  PC  (  1  )  -  0.0 

K  -  <' 

on  5  i  -  t  ,knt 
IP  <P?  (  I  >  )  3  75  »  380  ,  3H0 
J  7  5  \P  C  =  K.i~  (  I  > 

PC  (NPC  )  =  PK  (  1  ) 

NTPC  '  NTPC  ♦  1 
380  CONTINUf- 
38  1  CONTINUE 
*A  =  0 

C  START  «STtP  2 • 

DO  514  I  =  1  .NOROR 
OF  LT  A  (  I)  s  VAC  I) 
on  51  s  J  =  1  .NURD1* 


DhLTA(I)  =  DELTA  Cl)  ♦  A(I.J)  *  PCCJ) 

I  515  CONTINUE 

514  CONTINUE 

Oil  525  I  =  1  .NURDR 
1M0LLTAC  I  ))  518.517,517 

51 7  DELTA ( 11=0,0 

NPD  =  NPD  <•  1 

518  CONTINUfc 

525  CONTINUE 

C  STAR  T  • STEP  3® 

DO  527  I  =  i .NOROR 

OILTMC  I  1  =  DELTA C  I  1 

IF (DZLMX-DEL TA  C I  )1  52  7. 52  7,520 

526  DELMX  =  OtLTAC I ) 

527  CONTINUE 

DELVX  =  %Oa*DI:L*X 
DO  57 3  I  =  I  « NCROR 
IF OELTaC I ) 1  529.531.530 

52  9  I*- (DELMX-D5LTAC  I  1  >  53*. ,532.532 
5  J  J  Jt L15 ( I )  =  0,0 

531  NT  20  =  NT  2D  +  1 

532  CO NT  1 N  OF 

rfFITl  CNUUT.18)  1  .KLC  I  >  .PRC  I  >  ,PCC  I  1  .OFLTAC  I  I  .DELT6C  I  1 

53?  CONTINUE 

C  DETERMINE  SIZE  FOR  NEXT  ITERATION 


IF  (NTPC)  842. 

-42 ,539 

5  39 

CONTI  OOt. 

li-  (NTPOKNT) 

540,549,541 

54  l 

CUNT  1  NUi 

IF (NT  PC -NT 70) 

542  ,842  ,54* 

34D 

-  NTTC 

j  T  J  4 

54  2 

<  i  -  NT2J 
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6*4  CONTINUE 

IF(NPD-NTPC)  545.5*5.5*6 

6 *6  *>CX  ■  NPD  . . . .  ’  . 

5*5  CONTINUE 
K  *  0 

00  550  lat.KA 

KgP( I |aj  . 

550  CONTINUE 

WRITE  (NOUT  .51  - 

552  K  »  KA 

55*  CONTINUE  '  ' 

C  IF  ORDER  IS  REOUCED  TO  ONE.  THIS  IS  THE  END 

IF IK- I >480.395. 3 99  '  - 

395  KEL  a  KEP(K) 

IF(NFINL)  357.397.396 

396  NF  INL  *  0 

‘  GO  TO  *60 

397  CONTINUE 
RA  »  A (KEL .KEL) 

WRITE  CN0UT.17) 

WRITE  (N0UT.I6)  RA 
WRITE  (N0UT.5) 

RAV  a  I./RA 


WRITE  (N0UT.17) 

WRITE  (H0UT.19) 

WRITE  (N0UT.16)  RAV 
WRITF  (NOUT .5) 

_  RPR  a  -RAV  ♦  VA(KEL): 

“WRITE  (NODt . 3 )  KEL .RPR 
NF INL  a  1 
NTPC  »“f 
NPO»0 
NT ZD  a  0 

IF  (RPR  3  96**00.  *00  _ 

398  PC  (KEL  I  *  RPR 
GO  TO  381 

“  399  CCNTINOf.  . 

C  _  COMPARE  WITH  PRECEDING  CYCLE 

IFTk-KNT)  580.560.589 
560  CONTINUE 

UO  565  V'a  l.NORDR 

IFCKEC I)-KEP(I) I  580.565.580 

. 565  CONTINUE 

GO  TO  *C0 
580  CONTINUE' 

_  IF  ( K— KNT3  )  588  .*60.585 
*  585“  IF  (K-K NTC  )  590  i*60'.590" 

590  CONTINUE 
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UO  J8S  I  at  1  ,NORDR 
385  KEJI) _«  KEPI  I  > 

KNTC"  =  KNfa‘  ‘  . 

K.NT3  a  K_MT 

.  '  KNT  a  K  .  '  *’ 

GO  HACK  FOR  ANOTHER  ITERATION 

KLOOP  *  KLOQP  +  I  . 

GO^  TO  310 
400  CONTINUE ' 

WRITE  (  NOUT  •  4  }  LOOP 

STORE  PI  f  )'* SIN l  THETA  I  I  )  )  IN  OF. (I  •  1 )  C  *  PIX) 

STORE  P{  IJ4C0SITHETA1 1  M  IN  DEI  1.2)  «  »  PIO 

PSUM  x  0*0 

OO  410  I  a  I .NORDR 

DE  I  I  .  I  )  =-PC  U  )  *  THETA  1 1 ,~2  )  _  _ 

0EII.2)  =  PC II)*  THETA  1 1 • 3 ) 

PSUM  =  PSUM  ♦DEI  I  .21 
410  CONTINUE 

PZERO  =“Q  -  PSUM 
WRITE  I NOUT . 29)  PZERO 
WRITE  I  NOUT  .  3<J  ) 

00  420  1  a  I .NOROR 

~  WRITE  (N0UT.31 )  I  rOE  IfTI  TT6fcM  •  2l~  r 

420  CONTINUE 

WRITE  (NOUT. 5) 

WRITE  PUNCH  OUTPUT  FOR  COMAP 
MR  (  1  )  =  LOOP 

MR  (2)  =  LOOP 

MR  13)  =  LOOP  " . . . .  . 

NELCT  a  i 
MCU),  *  1 


MC  (  2  ) 
MC  (3) 
EL  1 1  ) 
fcL  12) 
EL  13) 
WR  Uz 


-  2 

a  3  " 

a  PZERO 
=  DE  I  I  .  1  ) 

=  DEI l *2) 

I NOUTP  .21  I  MR  1  j  )  ,  MC  C  i  )  .  ELI  J  J=  l  . 3  )  »  I T  I TLeTI)  .  i*~27 *  3&1 


DO  440  1A  a  2. NOROR 

DO  440  13  =  1.2 

EL ( NELCT )  =  DEIIA.I&) 

MC(NZLCT)  =  2* I A  ♦  IB  -  I 

NCLCT  =  NELCT  ♦  I 

IF  (NLt.CT-3  )  440.449.430 


4  3)  NELCT  =  I 

WRITE  (H0UTP.2)  (MRIJ)  .MCI  J)  »CL(  J).  J=l  »3).(TITLE1  I).  1=27,30) 
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DO  4J)  1  =  1,3 

MC  (  1  >  =  0 

:l(  i  )  =  d.o 

4  3D  CONTINUE. 

44.)  CONTINUE 

punch  the  last  card,  if  any 
IF  (Nt  LCT- I  )  455,455,450 

45'.  WRITE  (NOUTP.2)  <MR{  J>  ,  MC  {  0)  ,EL(  0  I ,  J=1  ,3  )'•  it  IYLE<  1),  t~  Z7  *  30) 

455  CONTINUE 
SL  TO  01  C 

460  *•>  I T  £  (NOUT.21)  LOOP 

il)  1  )  B(  0 

40  C  /DPIlr:  (  NOUT  »  20  ) 

6«  O  CONTINUE 
eSO  O.NTINUF 
fvt  TURN 

l  FORMAT ( H 2 I4.E 15,7,1X1 ,4A2) 
i  PiwmaT (IX.I3.2X.FIS.7) 

4  FiiWF  AT(4H<*SOL,I4/1HO 

5  ruhM  AT(!  1H  /IH  ) 

I*'  F  kMAT(  l  X,  I3.tl6,7,3E18,7) 

11  PY*  RMAT  (  j.3h  JMATM  1  X  SINGULAR  AT  ROW, 13) 

12  F0MATU7H  VECTOR  OL  ♦  DELA ) 

14  F  )  IMATI lOHOLOAO  CASE. !  3 , 1  X  •  8HTR.I  AL  PR ,4X , 14HV ECTOR  PI  (PC). 

1  1  1  X.  7-IOClTA  l ,1 1 X.7NDLLTA  ?> 

lu  F JPMATt 34H0PCS.0P  ZERO  DlLTA.OM  NEG.PI  CYCLE, 13. 2H  ),2II3) 
l  o  F.'-WATt  /1X.7E15*7/2X,7E15.7/3X,7E15*7) 

17  FUR.V.AT(  1 7H«MATRI  X  A  FFOUCfcD) 

15  ro;?vaT(lX.2I4,4Fl8,7) 

10  f  l.  AT<  IH*  ,  17X.1  2HANJ  INVERTED) 

20  r i.)f M A T (  7N  N<)  NEC) 

21  FT  4v»4T(  1  'JHOLOAO  CASE.I4.11H  OSCILLATES/) 

24  r uRMATt 1H1 , 4X , 30A2///7H  LOAD  *,EI6*7,7H  POUNDS///) 

2a  r  T>yAT(22M  INITIAL  LACK  OF  FIT  =,F.16.7,7H  INCHES//) 

Jr,  F  I.V.-1AI  {  WH  INTERFERENCE  FIT  =.F16,7,7H  INCHES) 

27  Fi.Fv.A  T  (  12H  SLIDING  FIT) 

?  \  F r  (  71H0P0W  CALCULATED  DELA  INPUT  DELB  LOAD  VECTOf 

1  TOTAL  VFC  TOR/4S  X ,6HUL  (N,,IP,22H)  DELA  ♦  OCLB  ♦  DL ) 

,-,i*VkT(*'H  P  ZERO  s.E16,7//) 


2'  F  'U  U(‘jH  NODE  «6X,  IMP  I  X  ,  1  4X  ,  3HPI  Y  ) 
5  1  i-  >v;r(!4,  .iri  17.7) 


SUBROUTINE  LINEAR  {  A  ,  B  » MO  .NO »D  »LOC»  SCALE »  MAT ) 
O  I  ME  NS  I  UN  A ( MAT  «  1  )  »  B  (  MAT  »  1  )  *  LUC (  I  )  »  SCALE (  l  ) 
DIMENSION  SUM <  1  ) 

DCUQL £  PRECISION  SUM 

"*l  *  mo 

N  a  NO 
INC  =  0 

IF  f  M I  10.30*30 
10  IK  (N  ♦  199)  20.230.230 
20  INC  =1  _ 

30  INC  =  INC  ♦  1 
DO  t>0  I  =  1  .M 

x  —  o*o 

DO  50  J  =  1  »  4 

IF  (X  -  AB S( A(J.I)))  40.50.50 
40  X  =  A£>S(  Ai(  J  .  I  )  I 
50  CONTINUE 

X  =  POWER  (X) 

SCALE ( I >  *  X 
DO  oO  J  s  l  ,M 
60  A 1  J  .  I  )  =  A  (  J  .  I  j  /  X 

DO  210  I  =  1  .  M 
11=1-1 
NEXT  I  =  I  +  1 

3UM(1 )  »  -A(l.I) 

CALL  OUT  (  II  .All  ,1)  .MAT.AU  .1)  .1  .SUM) 

X  a  Ab SI  SUM) 

Y  a  —  SNULt SUM) 

K  a  I 

IF  (I  -  M)  7C.llt.110 
7  0  DO  11  (■  J  a  Nt  XT  I  .  M 
3UM< 1 )  a  -A ( J, I ) 

CALL  DOT  (  I  1  ,A(J . 1  I  .MAT  ,A Cl  . I ) .1 .SUM) 

IF  (X  -  AOS (SUM))  fl0.90.9O 

ao  C(K.i)  =  Y 

K  a  J 

X  =  ABS(SUM) 

Y  =  —  SNGL ( SUM ) 

GO  TO  IOC 

90  m< J.I )  =  -SNGL (SUM) 

100  CONTINUE 
1 1 0  LOC ( I )  =  K 

IF  (256.0*  X  -  ABSCA(K.I)))  120.12C.IS0 
120  IF  (1  6777116.0*  X  -  AiJS  (A  (  K  •  I  )  )  )  130.  130.14C 

130  LCC(I)  =  t 
GO  T.)  4t-0 

140  LUC( l )  =  —LOC ( 1 ) 

ISO  MK,  I  )  =  Y 
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160 


IF  <  i  -  K  )  160.1  dlT,  1 3 0 

DO  1/0  J  =  I,  to 
X  -  Ml-  J) 

A  (  I  <  J  )  =  A  (  K  .  J  ) 

1  70  A ( K. J  J  =  X 
J  =  — D 

1  MO  IF  <  l  —Ml  190. 216. 210 


190  DO  200  J  =  NEXT1.M 
A(J.I)  =  A  (  J  *  1  )  /  Y 
SUM  ( 1 )  =  -A( I , J) 

CALL  DOT  (  !  1  .  A  <  I  .1)  .HAT  «A  (  1  .  J  )  «~1  «  SUM  1 
200  A(l.J)  =  -SNGL(SUM) 

210  t)  s  6  *  V  *  SCALE  (  I  ) 

DO  220  I  =  1  ,M 
DO  220  J  =  1.1 

220  A  (  J «  I  )  «  A(J,I)  *  SCALE  (II 
00  TD  (230.460). I NC 
230  L1M=  IABS(N) 

IF  (LImI  240.266.240 
240  INC  2  0 

DO  2/0  I  =  1  .M 
K  =  IABS(LUCd)) 

IF  (  l  -  K )  25C  .2  70.130  . 

250  DO  260  J  =  1 .LIM 
X  u  B( 1  * J) 

J<  I  .  J)  =  H(K, J) 

260  B(K.J)  =  X 

270  CONTINUE 

280  DO  300  I!  =  1  ,M 

SCAl  t(  I)  =  —A  (  1  .  I  ) 

A  (I. I  )  =  !  • 0 

DO  2  90  J  =  1 . M 
290  A ( I . J )  -  A(I.J)  /  SCALE ( I ) 

DO  300  J  =1.1 
3C0  A<  I.  J)  =  —  A  (  I  ,  J) 

DO  330  I  =  2.M 
INK  =  1 

IF  (LIM)  130.330*310 
310  DO  320  J  a  1 .LI M 
INK  ■*  INK  ♦  INC 
SUM  =  9( I  * J) 

LlMra  =  I  -  INK 

CALL  DOT  (LIMB, A(I  .INK)  .MAT, R(INK.J)  ,1  .SUM) 
320  [*(1.3)  =  SNGL(SUM) 

230  LIM  =  LIM  ♦  INC 
I  =  M 

DO  410  Mil  =  1 . M 
IF  (lIM!  340.360.340 
340  DO  350  K  =  1 .LI M 
SUNK  t  )  -  O.DO 
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'CALC  DOT  r«l  T.ATr. TT.MATiBTI  .KT~.TT501fllT'  “ 

350  B(I.K)  =  SNGL(SUM) 

360  IF  H>  *10,370.410  '  .  -  - 

370  LIM  a  LIM  -  INC 
MI  =  M  -  I 
00  4C0  K  *  I,M 
SUM < i ) =  0*00 
Ih  <  <  —  II  380,380,390 
380  SUM  a  A ( I  ,1  ) 

390  CALL  DOT  (MI,A(I  ,141).  .MAT  ,B(I+1.K?«1  .SUM  ) 
400  SC ALB ( K )  a  £NGL( SUM) 

Dll  40  5  K  *  I  ,  M 
405  B(I.K)  -  SCALE (K) 


4\0  I  ■  I  -  1 

IF  (M)  460.420.4o0 
420  I  a  M 

DO  450  Mil  *  “t  " 

K*  1ABS(L3C(I ill 
IF  (  I  -  K )  430.45*6.  130 
43U  DO  440  J  *  1 ,M 
X  a  A(J,i;> 

A  (  J .  I  t  a  A  (  J  ,K  ) 

440  ACJ.K)  a  X 

450  I  a  I  -  I  _ 

460  HE  TUR  N  ~  " . . 

END 


100 

110 

120 


SUBROUTINE  DOT (L . X ,1 X . Y . I Y.SUM) 
DOUBLE  PRECISION  SUM  _ 

REAL  X(IX.I).YU) 

IF  (L)  100.120.100  . . 

D0  11C  J  *  1 .L . 

SUM  a  SUM  ♦  X( 1 , J) *Yf  J) 

RETURN 

END 
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APPENDIX  I  CONTACT  PROBLEM  INPUT  MATRICES 


In  Chapter  3  the  method  used  to  solve  the  contact  problem  was  briefly 
described.  This  Appendix  gives  the  details  for  setting  up  the  matrices 
needed  as  input  for  the  analysis.  The  present  study  uses  the  Grumman 
ir-.trix  structural  analysis  program  called  COMAP -ASTFAL  but  any  elastic  anely6is 
computer  progrua  that  has  similar  planar  finite  elements  as  those 
described  in  Section  2.3.1  could  ’  used. 

The  first  matrix  to  be  gr  - „ed  is  the  matrix  of  influence  coeffi¬ 
cients,  [A]  which  gives  the  radii.  1  displacements  around  the  hole  for  unit 
reduadants  {P]  following  the  notation  shown  in  the  figure  below. 


The  relation  of  [P]  to  the  radial  displacements  in  the  plate,  l5rj 
is  of  the  form: 

{PJ  =  LA}  Ur]  (1.1) 

where, 

{P}  = 

’  / 

P 

n 

V  J 


21; 


We  can  rewrite  Eq.  1 . 1  by  eliminating  one  of  the  redundants  from 
the  statically  determinate  equilibrium  condition  which  is: 


PQ  =  [-cose^.  -  cos90 


-cosQ  -  l]  {P’} 

Xi 


where,  {P'}  = 


Thus  the  new  redundants  are  related  to  the  old  by  the  expression  below: 


-cos©^  -cos 


=  Cal  {P'l  ,  where  [aj  is  a  transformation  matrix  . 


Once  the  order  of  the  redundants  in  the  compatibility  equation  (Eq.  10) 

are  changed  the  radial  displacements  ouBt  be  reordered.  Let  { be  the 

relative  radial  displacements  between  the  fastener  and  the  plate.  The  relation 

between  td  }  and  {6  3  becomes: 
r  r 


—cos  0 


-cos 9  0  1 


Oj 


[P]  {6r3  ,  where  [9]  is  a  transformation  matrix. 
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Note  that  the  relative  radial  displacement  ArQ  =  0  so  that  or  any  point 
on  the  i  _d  fastener  has  zero  relative  displacement  to  point  0. 

The  expression  for  relative  radial  displacements  due  to  the  action  of 
of  the  redundant  {P'}  therefore  becomes: 

{Ar1  =  CP]  [A]  0]  {P* }  (I..5) 
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APPENDIX  J  NONLI NEAP  ANALYSIS  OF  A  SINGLE  FASTENER  -  THBEE-DIFgNSIONAI 
EFFECTS 


Starting  with  ft  load  Aei'lection  curve  (Figure  J-l)  for  a  single 

rigid  fastener,  (Figure  J-2  )  as  determined  by  finite -element  methods 

described  earlier  in- Chapter  2  for  which  the  detailed  sheet  stresses 

are  known  (  e.g.  Figure  J-3  )  for  each  load  level,  a  "secant  spring 

modulus" k  is  available.  If  one  isolates  the  fastener  and  replaces 
a 

the  surrounding  plate  material  sheets  by  a  continuous  series  of  non¬ 
linear  transverse  springs,  the  problem  becomes  quite  tractable.  It  is 
emphasized  here  that  the  engineering  assumption  made  is  essentially 
the  same  as  is  made  in  "beam  on  elastic  foundation"  theory,  i.e.  ,  the 
shear  effects  through  the  sheet  thickness  play  only  a  secondary  role  in 
the  load  distribution  aid  can  be  ignored  for  the  present. 

Continuing  along  these  lines,  Figure  J-h  shows  the  idealization  of 
a  typical  fastener  in  single  shear.  Denoting  the  fastener  deflection 
adjacent  to  the  ith  plate  by  y  (i=l  and  2  for  a  fastener  in  single 
shear;  i=l,  2  and  3  for  a  fastener  in  double  shear,  etc,  )  and  Yi  as  the 
plate  deflection  at  some  reference  section,  it  becomes  possible  to  relate 
Y^  -  y^  to  the  local  secant  spring  stiffness: 

q,  =  \  -  yj  (J-l) 

where  k,  and  may  vary  through  the  plate  thickness  y. ^ . 

II  the  reference  section  is  sufficiently  far  (i.e.„  several  hoi e 
diameters ;  from  the  fastener,  if  can  be  assumed  to  rsv.sln  plane  ,  lead¬ 
ing  to  the  following: 

c.  =  k,(a  "■  lix-i  ~  Ih  )  ( J -2  ) 


where  and  b^  are  constants  to  be  evaluated  such  that 


o 


where  P4  and  M.  are  the  net  force  and  moment  at  the  plate  reference 
sections. 


Since  the  problem  may  be  nonlinear,  a  step-  -  -etc;  linearised 
numerical  solution  technique  is  proposed  wherein  and  I-h  are  built 
up  simulta  .ecus.by  in  sufficiently  saall.  steps  { 1 such  that 
£  and  yi  may  be  approximated  in  the  integrands  of  Equations  (1-2) 


and  (J-U)  by  values  which  correspond  to  the  previous  step. 


in  this 


way  a.  and  b.  may  be  evaluated  in  terms  of  f>.  .arc.  V,  from  Equations 
(J-o;  and  (.1-6): 


r*v,< 

1  *  —  -» 

dub 

3.  ! 
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■A  1 

••‘l  *  <m) 
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h  *  hi 

where 


h. 
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v  . 


“  r 1 


yi  £i 


^  a 


-f  Xi  yi  Ei  “i 

r\ 


q_^,  as  a  function  of  x^,  is  known  after  each  increment  in  the 


loading. 


To  solve  for  the  y  ,  a  short  thick-beam  theory,  such  as  Timoshenko's 
(Reference  12), appears  suitable  since  it  accounts  for  shear  deflection. 

For  simplicity's  sake,  it  is  assumed  that  the  fastener-head  effects  may  be 
approximated  by  a  rotational  spring  and  edge  shear  resistance  to  simu¬ 
late  head  friction. 

Referring  to  Section  4.3,  the  beam-segment  equations,  correspond¬ 
ing  to  each  plate,  are: 


d  JF<  dy* 

£7<EIi  3P  *  l0\  <£7  -  V  ‘  0 


(J-7) 


JLu  t  51  .  ,  ])  .  .  %. 

dx.  i  1  XG 


(J-8) 


where  y  is  the  cross-sectional  beam  rotation  under  the  usual  assump¬ 
tion  that  plane  sections  remain  plane,  is  the  cross-sectional  area, 

E  and  G  are  the  material  stiffnesses,  1^  the  bending  moment  of  inertia,  and 
X  is  a  factor  which  depends  on  the  geometry  of  the  beam  cross-section. 

The  Interface  boundary  conditions  are 


*1  =  -  yi+l 


d*i+i  ,  .  Y  _  ^iil 

dxi+i  cxi  i  d*1+1 


(j-y) 


and  the  boundary  conditions  at  the  fastener  heads  can  be  written  as 
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0 


C„  El  +  cnM 


<lx. 


"2i  li 


wt  ■  »' 


(J-10) 


where  the  C's  are  adjusted  to  account  for  head  effects  and  F  is  the  shear 
load  between  fastener  and  head.  For  example ,  if  the  head  rotational 
stiffness  is  a  constant,  say  S,  Cgi  =  S  cad  =  1  regardless  of  the 
level  of  and  M^.  In  general,  these  C's  as  veil  as  F,  must  be  ap¬ 
proximated  by  engineering  means  or  be  empirically  adjusted  to  permit 
correlation  with  test  data. 

Equations  through  (j-10)  may  be  solved  numerically  by 

finite  difference  techniques.  However,  because  of  the  nature  of  the 
assumptions  and  degree  of  approximation  to  this  point,  an  analytical 
solution  is  easily  available  if  the  coefficients  cf  the  differential 
equation  are  assumed  constant,  l.e.,  A  and  1^  are  assumed  constant. 

Thus,  the  are  evaluated  as  functions  of  for  each  step  in  the  P^, 
iteration  process. 

Once  a  solution  for  q,  as  a  function  of  the  plate  thickness  is 
obtained  in  terms  of  the  final  F^,!^  combination,  the  stresses  through 
the  sheets  near  the  fastener  holes  may  be  determined  by  reference  to 
the  previous  two-dimensional  stress  solution  at  each  thickness  level. 
Furthermore,  an  effective  fastener  spring  rate,  including  fastener  shear 
and  rotatior.^may  be  defined  in  terms  of  relativ?:  deflections  on  a  given 
fastener. 

Linearization:  As  a  first  step  to  the  overall  problem,  the  equa¬ 
tions  may  be  greatly  simplified  if,  as  appears  Justified  from  Chapter  3, 


2r'l 


the  elastic  foundation  springs,  corresponding  to  each  piste,  are  as¬ 
sumed  to  have  constant  rates.  Thus,  the  first  three  integrations  re¬ 
quired  by  Equations  J-C )  may  be  performed  explicitly  once  and  for  all, 
and  and  become  uniquely  determined  function  of  integrals  in  y^. 
Substituting  these  into  Equation  (J-2)  and  thence  into  Equation  (J-S) 
yields 


d 

0X4 


+ 


a 

\0 


ai  +  fed  b 
'.G  XG 


(J-11) 


where  Equation  (J-H)  will  involve  integrals  of  y^. 

For  constant  area,  and  bending  inertia,  1^ ,  it  becomes  a  simple 
matter  to  obtain  closed-form  analytic  solutions  to  Equations  (J-7)  and  fJ-ll) 
subject  to  linear  boundary  Equations  (j-io)  •  In  this  way,  once  the  are 
known  the  stress  variation  through  the  thickness,  q^,  may  be  computed. 
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(a)  Plate-Fastener  Load  Interaction  Through  Plate  Thickness 


(b)  Idealized  Model  of  Plate  as  a  Nonlinear  Elastic  Foundation  Interacting 
Beam 


Figure  J-l  -  Idealized  Model  Including  Local  Effects 
Along  the  Fastener  Length  and  Through  the  Plate's  Thickness 
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'  This  report  presents  analytical  techniques  for  predicting  both  the  linear  ana 

nonlinear  stresses  and  deformations  of  mechanically  fastened  joints.  The  idealization 
used  is  a  set  of  stacked  parallel  plates  which  transfer  planar  loads  among  themselves 
by  means  of  transverse  fasteners.  The  plates  are  treated  by  finite  element  methods  of 
matrix  structural  analysis  in  which  each  element  is  assumed  to  be  in  plane  stress  for 
both  elastic  and  plastic  stress  states.  The  fasteners,  which  are  treated  by  short-beam 
theory,  interact  with  the  plates  under  the  assumption  that  the  plates  may  be  represented 
by  an  equivalent  elastic  foundation. 

Application  of  the  present  analytical  techniques  was  made  to  a  variety  of  prob' 
lems  including:  the  combined  elastic-plastic  behavior  of  plates  with  unloaded  holes, 
the  load -deflection  behavior  of  single- fastener  joints,  the  residual,  stress  distribu¬ 
tions  in  plates  with  squeeze  rivets,  the  effect  of  fastener  bending  and  shear  deforma¬ 
tion  on  the  bearing  stress  distribution  between  the  fastener  and  the  plate,  and  the 
prediction  of  the  fatigue  life  of  typical  mechanically  fastened  joints.  In  all  these 
cases,  comparisons  with  test  results  generally  gave  very  good  correlation. . 

Parametric  studies  were  performed  to  determine  the  effects  on  strede  and  de¬ 
flection  distributions  of  variables  such  as:  initial  clearance  or  interference  between 
fastener  and  hole,  load  level,  geometry  and  material  properties.  The  effect  of  these 
variables  upon  fatigue  life  of  single  and  multi-fastener’ joints  under  realistic  load¬ 
ings  was  also  assessed. 

Tor  the  range  of  parameters  studied,  the  effects  of  hole  clearance  and  fastens 
interference  a«i  geometric  configuration  appear  to  play  the  dominant  roles  in  determin¬ 
ing  the  stress  distribution  and  hence,  the  fatigue  life  of  mechanically  fastened 
Joints. 
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